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Operating System. 









Preface 



This publication describes the language of the 7040/ 
7044 Fortran iv compiler (ibftc), which is a part of 
the 7040/7044 Processor. Before reading this publica- 
tion, the reader should refer to the publication, IBM 
7040/7044 Operating System (16/32K): Programmers 
Guide, Form C28-6318, for a complete discussion of 
the use of the Processor. 

7040/7044 Fortran iv, hereafter referred to as 
Fortran, is a component language of the Processor. 
It is assumed that the reader is thoroughly familiar 
with the basic concepts of Fortran, which are in the 
FORTRAN General Information Manual, Form 
F28-8074-1. 

The minimum machine requirements for the use of 
the Fortran iv compiler are described in the Program- 
mer's Guide, Form C28-6318. Operating instructions 
for the operator are in the publication, IBM 7040/ 
7044 Operating System (16/32K): Operators Guide 
Form C28-6338. 
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General Properties of a FORTRAN Source Program 



A Fortran source program consists of a sequence of 
source statements, which are described in detail in 
the following chapters. 



Punching a Source Program 

Each statement of a Fortran source program is 
punched into a separate card (the standard Fortran 
card form is shown in Figure 1); however, if a state- 
ment is too long to fit on one card, it can be continued 
on as many as nine continuation cards. The order of 
the source statements is governed solely by the order 
of the statement cards. 

Cards that contain a C in column 1 are not proc- 
essed by the Fortran compiler. Such cards can be 
used for comments that appear when the source pro- 
gram deck is listed. 

A number punched in columns 1-5 of the first card 
statement is the statement number of that statement. 
It permits cross-referencing within a source program. 
Statement numbers can be assigned in any order, 
since they do not affect the sequence of operation. 

Column 6 of the first card of a statement must be 
blank or punched with a zero. However, in continua- 
tion cards (other than for comments), column 6 must 
be punched with some character other than zero. 



Continuation cards for comments need not be punched 
in column 6; only the C in column 1 is necessary. 

The Fortran statements themselves are punched in 
columns 7-72, both on initial cards and on continuation 
cards. Thus, a statement can consist of not more than 
660 characters (i.e., one initial card and nine continua- 
tion cards). A table of the admissible characters for 
Fortran is in Appendix A. Blank characters, except in 
column 6 and in alphameric fields ( H fields of format 
statements or alphameric arguments of call state- 
ments), are ignored by Fortran and may be used 
freely to improve the readability of the source program 
listing. 

Columns 73-80 are not processed by Fortran and 
may be punched with any desired identifying infor- 
mation. 

The brief program shown in Figure 2 illustrates the 
general appearance and some of the properties of a 
Fortran program. It is shown as coded on a standard 
Fortran coding sheet. 

The purpose of this program is to determine the 
largest value contained in a set of numbers, A t [repre- 
sented by the notation A (I)], and to write the num- 
bers on logical unit 6. The numbers exist on an input 
medium, 12 to a record, each number occupying a 
field of 6 columns. The actual size of the set is given in 
the first record and is the only data in that record. The 
input medium is logical unit 5. 
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FORTRAN STATEMENT 
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IDENTIFICATION 



00000000 

73 74 75 76 77 78 79 89 
11111111 

22222222 
33333333 
44444444 
55555555 
66666666 
77777 77 7 
88888888 
99999999 

73 74 79 76 77 78 79 80 



Figure 1. Standard Fortran Card 
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Figure 2. Example of a Fortran Program 

Types of FORTRAN Statements 

The types of statements that can be used in a Fortran 
program are classified as follows: 

Arithmetic or Logical Assignment Statements spec- 
ify a numerical or logical computation. The symbols 
available for referring to constants, variables, and 
functions are discussed in the section "Constants, Vari- 
ables, Subscripts, and Expressions;" the section "Arith- 
metic and Logical Assignment Statements" gives the 
rules for combining these into arithmetic and logical 
assignment statements. 

Control Statements govern the flow of control in the 
program. These statements and the end statement are 
discussed in the section "Control Statements." 



. I3 . f . .1 



m 



. AllAMRBP^ 



IS. 9 F\7. ?) 



—J 



Input/Output Statements provide the necessary in- 
put and output functions. These statements are dis- 
cussed in the section "Input/Output Statements." 

Subprogram Statements enable the programmer to 
define and use subprograms. The use of subprograms 
is discussed in the section "Subroutines, Functions, and 
Subprogram Statements." 

Declarative Statements provide information to the 
compiler regarding certain properties of names ap- 
pearing in other statements, such as the type assumed 
by a variable or the dimensions of an array of numbers. 
These statements are discussed in the section "The 
Specification Statements." 



Constants, Variables, Subscripts, and Expressions 



Fortran provides a means of expressing numerical 
constants and variable quantities. A subscript notation 
is also provided to express one-, two-, or three-dimen- 
sional arrays of variables. 



Constants 

The following types of constants can be used in the 
Fortran source program language: integer (fixed 
point), real (floating point), double-precision, com- 
plex, and two special logical constants. 

Integer Constants 

An integer constant consists of one to elev en decimal 
digits written without a decimal point; t he constant 
may be signed or unsigned. 

examples: 
14 
+3 
-47 
2898762403 

An integer constant can be as large as 2 35 -l, ex- 
cept when used for the value of a subscript or as an 
index of a do statement, in which case the value of the 
integer must be less than 2 lb . 



Real Constants 

A real (floating point) constant consists of one to nine 
de cimal digits, with a decimal point at the beginning, 
at the end, or between two digits. 

A real constant can be followed by a decimal ex- 
ponent that is written as the letter E followed by the 
exponent. The field following the letter E must not be 
blank; it may be zero. The decimal point may be 
omitted in a whole numberwritten with an E exponent. 



examples: 
15.4 
5. 

.0003 

5.0E3 (5.0 X 103; i.e., 5000) 

5.0E-3 (5.0 X 10- 3 ; i.e., .005) 

5E2 (5. X 10 2 ; i.e., 500; FORTRAN will 

treat this form as if the decimal point 
were punched between the 5 and 
theE) 

A real constant may have up to nine significant digits 
that have a value not greater than 2 27 -l. The magni- 
tude of the constant expressed must lie between the 
approximate limits of 10~ 38 and 10 38 , or must be zero. 



Double-Precision Constants 

A double-precision constant consists of one to seven- 
teen significant decimal digits written with a decimal 
point. 



To sp ecify a decimal exponent or a constant contain- 
ing 10 or fewer digits, the programmer must use the 
letter D, followed by the exponent, after the number; 
however, when there are more than 10 digits, the D 
is not necessary, unless the programmer wishes to use 
an exponent. 

The exponent is an integer constant. The field follow- 
ing the lett er D must not be blank; it may be zero. The 
decimal point may be omitted in a whole number 
^written with a D exponent. 



examples: 

21.987538229 
.203D0 
5.0D3 
5D2 



(5.0 X 10 3 ; i.e., 5000) 

(5. X 102; i.e., 500; FORTRAN wiU 

treat this form as if the decimal point 

were punched between the 5 and 

theD) 

A do uble-precision constant is a floating-point 
quantity. It may have up to 17 significant decimal 
digits that have a value not greater than 2 54 - l. The 
magnitude of the constant expressed must he between 
the approximate limits of 10~ 29 and 1 38 . or must be 
zero. Numbers between 10~ 29 and 1Q- 38 mav also be 
used, but only eight digits are significant in this range. 



Complex Constants 

A comp lex constant consists of an ordered pair of real 
constants separated by a comma and enclosed In 
parentheses. 

examples: 

(3.2, 1.86) represents 3.2+1.86i 

( 2.1, 0.0 ) represents 2.1+0.0i 

(5.0E3, -2.12) represents 5000. -2.12i 

Y=CLOG(( 3.0, +1.33)) 

Z=(4.17, -1.0) + (18.28, 2.2) 

The first real constant represents the real part of the 
complex number, and the second real constant repre- 
sents the imaginary part of the complex number. Jiie_ 
parentheses are required regardless of the context in 
which the complex constant appears. Each part of the 
.complex constant may be preceded by a + (plus) or 
a — (minus) sign. 
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Logical Constants 

A logical constant may be defined as either true, or 
false, and then used in a logical if statement (see 
"Logical if Statement"), as in this example: 
A = .TRUE. 

IF(A)GOTO20 
In the example, the logical constant .true, has been 
stored in A. According to the logical if statement, the 
program will go to statement number 20. However, if 
.false, had been stored in A, the program would have 
continued on to the next sequential statement. 

Variables 

A variable is specified by its name and type. The 
following types of variables are permissible: integer, 
real, double-precision, complex, and logical. The rules 
for naming each type of variable are in the following 
text. 

Variable Names 

A variable name consists of one to six alphameric char- 
acters, the first of which is alphabetic. A variable name 
may not contain a special character ( * $ @ etc.). 
examples: 

L5 
JOB1 
BETATS 
COST 

K 

Subroutines are named in the same manner as 
variables (the section "Naming Subroutines" has ad- 
ditional information). 

The names of the built-in functions cannot be used 
as variable or subroutine names [the sections "Built-in 
(or Open) Functions" and "Appendix E," under "Built- 
in Features," have additional information]. 

The same name should not be used for more than one 
purpose in the same program. 

Variable Type Specification 

The type of a real or integer variable name or a real or 
integer function name may be specified in one of two 
ways: implicitly by name, or explicitly by a Type state- 
ment (the section "Type Statements" has additional in- 
formation). Double-precision, complex, and logical 
variables must be specified by a Type statement. 

Implicit Type Assignment 

A variable or a function is considered integer if the 
first character of the name is i, j, k, l, m, or n; e.g., 

MAX, JOB, I, M2. 
8 



A variable or a function is considered real if the 
first character of the name is not I, j, k, l, m, or n; e.g., 
delta, bmax, a, B7. 

Subscripts 

A variable can represent any element of a one-, two- 
or three-dimensional array of quantities if the user 
appends one, two, or three subscripts, respectively, to 
the variable name. The variable is then a subscripted 
variable. The value of the subscript determines the 
member of the array to which reference is made. 

Forms of Subscripts 



' GENERAL FORM 



Let v represent any unsigned, nonsubscripted integer 
variable and c(orc') any unsigned integer constant. Then, 
a subscript is an expression that may take any of the fol- 
lowing forms: 



v+c or v— c 

c*v 

c*v+c' or c*v— c' 



EXAMPLES: 

IMAS 
3 

MU+2 
5*MU-6 

9+ J (Invalid: for addition, the variable must precede the 
constant. ) 

K*2 (Invalid: for multiplication, the constant must precede 
the variable. ) 
Real quantities may not appear in subscripts: nor 
may constants be signed. 

Subscripted Variables 

A subscripted variable consists of a variable name fol- 
lowed by parentheses enclosing one, two, or three sub- 
scripts that are separated by commas. 
examples: 

A(l) 

K(3) 

BETA(8*J+2,K-2,L ) 

MAX (I, J, K) 

During execution, the subscript is evaluated so that 
the subscripted variable refers to a specific member 
of the array. The value of a subscript must be greater 
than zero but not greater than the corresponding array 
dimension. The size of each array must be specified 
before the first appearance of the subscripted variable. 
This is accomplished with a dimension statement, a 
dimensioned common statement, or a dimensioned 
Type statement. 

Arrangement of Arrays in Storage 

Arrays are stored in columnar order in. increasing st or- 
age locations, with the first of their subscripts varying 
most rapidly and the last varying least rapidly. 



Example: The two-dimensional array Am, n is stored 
as follows, from lowest storage location to highest: 

Al,l,A2,l, • • ■ , Am,l>Al,2,A2,2, . . . ,Am,2, ■ . • ,Am,n 



Expressions 

The Fortran language includes two kinds of expres- 
sions: arithmetic and logical. An expression is a se- 
quence of constants, variables (subscripted or non- 
subscripted), and operation symbols that indicates 
a quantity or a series of calculations. It must be formed 
according to the rules for constructing expressions. 
The expression may include commas and parentheses 
and may also include functions (to be discussed later). 

Arithmetic Expressions 

An arithmetic expression consists of certain sequences 
of constants, subscripted and nonsubscripted variables, 
and arithmetic function references separated by arith- 
metic operation symbols, commas, and parentheses. 

The arithmetic operation symbols +, — , *, /, ** 
denote addition, subtraction, multiplication, division, 
and exponentiation, respectively. The rules for form- 
ing arithmetic expressions are: 

1. Figures 3 and 4 indicate which constants, vari- 
ables, and functions may be combined by the arith- 
metic operators to form arithmetic expressions. Figure 

3 gives the valid combinations with respect to the 
following arithmetic operators: +, -, *, and /. Figure 

4 gives the valid combinations with respect to the arith- 
metic operator **. In these figures, Y indicates a valid 
combination and N indicates an invalid combination. 
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Figure 3 
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2. The simplest expression consists of a single con- 
stant, a single variable, or a subscripted variable. If 
the quantity is integer, the expression is said to be of 
the integer type. If the quantity is real, the expression 
is said to be of the real type. 

A real constant, variable, or function name com- 
bined with a double-word quantity forms an expres- 
sion of the same type as the double-word quantity; 
e.g., a real variable plus a complex variable forms a 
complex expression. 

3. Quantities can be preceded by a + or a — , which 
does not affect the type of the expression. Also, ex- 
pressions can be connected by any of the arithmetic 
operators (+, -, *, /) to form other expressions, 
provided: ' 

a. No two operators appear consecutively. 

b. All operators are explicitly expressed. 

4. Any expression may be enclosed in parentheses. 
Parentheses can be used to specify the order in which 
the operations in the expression are to be computed. 
Where parentheses are omitted, the hierarchy of 
operations is: 

a. Function Reference 

b. Exponentiation 

c. Multiplication and Division 

d. Addition and Subtraction 
For example, the expression a+b/c+d**e*f— g 

will be taken to mean a + (b/c) + (d e *f) -g. 

(The expres sion a**b**c is not permitted; it must 
be written as either a**(b**c) or (a**b)**c. 
whichever is intended. ) 

Logical Expressions 

The second type of expression is the logical expression. 
The logical operation symbols (where a and b are 
logical expressions ) are: 



** 

*and/ 
-Hand— 



SYMBOL 

.NOT.a 
C.AND.& 



a.OR.b 



Figure 4 



DEFINITION 

This has the value true only if a is false; it 
has the value false only if a is true. 
This has the value true only if both a and 
b are true; it has the value false if either 
a or b is false or both a and b are false. 
(Inclusive OR) This has the value true if 
either a or b is true or if both a and b are 
true; it has the value false only if both a 
and b are false. 

The logical operators not, and, and or must always 
be preceded and followed by a period. 

The relational operators "are used to compare arith- 
metic quantities. The relational operation symbols 
(where x and y are arithmetic expressions) are: 

SYMBOL DEFINITION 

s.GT.y Greater than 

True if x is greater than y, false if x is less 
than or equal to y. 
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SYMBOL 


DEFINITION 


x.GE.y 


Greater than or equal to 




True if x is greater than or equal to y; false 




if x is less than y. 


x.LT.y 


Less than 




True if x is less than y; false if X is greater 




than or equal to y. 


x.LE.y 


Less than or equal to 




True if x is less than or equal to y, false 




if x is greater than y. 


x.EQ.y 


Equal to 




True if x is equal to y; false if a: is not 




equal to y. 


x.NE.y 


Not equal to 




True if x is not equal to y; false if x is equal 




to y. 



The relational operators must always be preceded 
and followed by a period. 

A logical expression consists of certain sequences of 
logical constants, references to logical functions, logical 
variables (which must be separated by logical opera- 
tion symbols), and arithmetic expressions (which 
must be separated by relational operation symbols). 
A logical expression always has the value .true, or 
.false. . 

Rules for constructing logical expressions are: 

1. Figure 5 indicates which constants, variables, 
and functions may be combined by the relational 
operators to form a logical expression. In this figure, 
Y indicates a valid combination and N indicates an 
invalid combination. 

2. A logical expression can consist of a single 
logical constant, a logical variable, or a reference to 
a logical function. 
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Figure 5 

3. The logical operator .not. must be followed by a 
logical expression, and the logical operators .and. and 
.or. must be preceded and followed by logical ex- 
pressions to form more complex logical expressions. 

4. Any logical expression can be enclosed in paren- 
theses; however, the logical expression to which the 
.not. applies must be enclosed in parentheses if it 
contains two or more quantities as, for example, .not. 
(a.AND.b), where a and b are logical expressions or 
.not. (x.LE.y), where x and y are arithmetic expres- 
sions. 

5. Parentheses can be used in l ogical expressions to 
specify the order in which the expression is to be 
computed. Where parentheses are omitted, the hier- 
archy of operation is: 

a. Arithmetic Operations 

b. .LT.,.LE.,.EQ.,.NE.,.GT.,.GE. 
C. .AND. 



.OR. 



Since the logical operator .not, does not connect 
two operands, it does not appear in the hierarchy of 
operations. 
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Arithmetic and Logical Assignment Statements 



Each arithmetic statement or logical statement de- 
fines a numerical or a logical calculation. These 
Fortran statements closely resemble conventional 
arithmetic formulas. However, the equal sign in a 
Fortran statement specifies replacement, or "assign- 
ment," rather than equality. Thus, A = 4.0 means "assign 
the quantity 4.0 to A." 



GENERAL FORM 



a=b 
where: 

1. a is any type of variable ( subscripted 
or nonsubscripted ) . 

2. b is an expression. 



examples: 



QI=K 

A(I)=B(I) -SIN(C(I)) 

V = .TRUE. 

E = C.GT.D.AND.F.LE.G 

Figure 6 indicates which type of expression can be 
equated to which type of variable in an arithmetic or 
a logical statement. In this figure, Y indicates a valid 
statement and N indicates an invalid statement. 

Right Side of Equal Sign 
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Figure 6 

If the variable on the left and the expression on the 
right are the same type, the computation is done in 
that type. 

The following rules hold for the manner in which 
the expression is evaluated and the result stored, if 
the type of the expression on the right and the type of 
the variable on the left are different. 

1. If the variable on the left is integer and the ex- 
pression on the right is real, the result is computed 
as real, truncated to the largest integer it contains, and 
converted to integer. 

2. If the variable on the left is real and the expres- 
sion on the right is integer, the result of the expression 
is computed as integer and is converted to real. 



3. If the variable on the left is logical, the expression 
on the right must be logical. 

4. If the variable on the left is double-precision and 
the expression on the right is real or integer, the ex- 
pression is converted and the result computed as 
double-precision. 

5. If the variable on the left is real or integer and 
the expression on the right is double-precision, the 
expression is evaluated in double-precision and the 
result is truncated. 

6. If a relational expression includes both a real 
quantity and a double-precision quantity, the real 
quantity is converted to double-precision before the 
relation is evaluated. 

In the following examples of arithmetic statements, 
I is an integer variable, A and B are real variables, 
DD is a double-precision variable, CP is a complex 
variable, and G, H, and P are logical variables. 



A=B 

Replace A by the current value of B. 

I=B 

Truncate B to an integer, convert it to an integer constant, 
and store it in I. 

A=I 

Convert I to a real variable and store it in A. 

1=1 + 1 

Add 1 to I and store it in I. 

A=3*B 

Not permitted. The expression is mixed for multiplication, 
i.e., it contains both a real variable and an integer constant. 

DD=A+B 

Convert A and B to double-precision, compute their sum, 
and store it as double-precision in DD. 

A=DD+B 

Convert B to double-precision, add B to DD, truncate the 
sum, and store it in A. 

A = DD + SIN(X) 

Convert the result of SIN(X) to double-precision, add DD, 
truncate the sum, and store it in A. 

DD .GT. A 

Convert A to double-precision and compare it with DD. 

A .LE. CP 

Not permitted. A complex quantity may not appear in a 
logical expression. 

G = .TRUE. 

Store the logical constant .TRUE, in G. 

H = .NOT.G 

If G is .TRUE., store the value .FALSE, in H; if G is .FALSE., 
store the value .TRUE, in H. 

H = I.GE.A 

Not permitted. An integer and a real variable may not be 
joined by a relational operator. 
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where: 

~ implies .NOT., and v 

implies .OR. 



G=3..GT.B 

G is .TRUE, if 3. is greater than B; G is .FALSE, otherwise. 



The last two examples illustrate the following rules: 

1. Two logical operators can appear in sequence 
only if the second logical operator is .not. . 

2. Two decimal points may appear in succession 
only when the situation described in item 1 occurs or 
when one decimal point belongs to a constant and the 
other to a relational operator. 
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Control Statements 



The second class of Fortran statements is a set of 
control statements. With this set the programmer can 
control the flow and termination of the program. 

Unconditional GO TO Statement 

This statement interrupts sequential execution and 
directs flow to the statement that is to be executed next. 



GENERAL FORM 



GOTOn 

where : 

n is a statement number. 



example : 

GO TO 3 
In the example, control is transferred to statement 
number 3. 

Computed GO TO Statement 

This statement also interrupts sequential execution 
and directs flow to the statement that is to be executed 
next. It differs from the unconditional go to statement 
in that it allows different statements to be executed 
at various stages in the program. 



GENERAL FORM 



GOTO (ni,n2, .. .,n m ),i 
where: 

1. m, n2, . . . , are statement numbers. 

2. i is a nonsubscripted integer vaiiable. 



example: 

GOTO (30, 42, 50, 9), I 

Control is transferred to the statement numbered 
n l3 n 2 , n 3 , . . . , n m , depending on whether the value of i 
at the time of execution is 1, 2, 3, ... , m, respectively. 
Thus, in the example, if I is 3 at the time of execution, 
a transfer to the third statement of the list, namely 
statement 50, occurs. 

The computed go to statement is used to obtain 
many computed choices from one statement. 



Assigned GO TO Statement 

The assigned go to is used to obtain one of a number 
of preset choices from one statement. 



GENERAL form 



GO TO i, ( ni, n2, . . . ,nm ) 
where: 

1. i is a nonsubscripted integer variable appearing in a 
previously executed ASSIGN statement. 

2. ni, n2, . . . ,nm are statement numbers. 



example: 



GO TO K, (17, 12, 19) 
This statement causes transfer of control to the state- 
ment with a statement number equal to that value of 
i that was last assigned by an assign statement; n l5 n 2 , 
. . . , n m are the values that may be assigned to i. In the 
example, if K had been assigned 12 by a previous assign 
statement, a transfer to statement 12 would occur. 



ASSIGN Statement 

The assign statement is used in conjunction with the 
assigned go to statement. 



GENERAL FORM 


ASSIGN n to i 
where : 

1. n is a statement number. 

2. i is a nonsubscripted integer 
in an assigned GO TO statement in 


variable 
the same 


that appears 
program. 



example: 

ASSIGN 12 to K 
This statement causes a subsequent go to k, (ni, 
. . . , n m ) to transfer control to statement number 12. 



Arithmetic IF Statement 

This statement permits the programmer to change the 
sequence of statement execution, depending upon the 
value of an arithmetic expression. 



general form 



IF (a) ni,n2,n3 
where: 

1. a is an arithmetic expression (it may not be of the 
complex type )■ 

2. ni, m, and m are statement numbers of executable 
FORTRAN statements. 



example: 

IF (A(J,K)-B)10,4, 30 

Control is transferred to the statement numbered 
ni, n 2 , or n 3 if the value of a is less than, equal to, or 
greater than zero, respectively. In the example, if 
A(J,K) - B is less than zero, control will transfer to 
statement 10; if it is equal to zero, control will trans- 
fer to 4; or if it is greater than zero, control will transfer 
to statement 30. 

Logical IF Statement 

This statement permits a programmer to change the 
sequence of statement execution, depending on the 
value of a logical expression. 
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GENERAL FORM 



IF (t)s 
where: 

1. t is a logical expression. 

2. s is any executable FORTRAN statement except a DO 
statement or another logical IF statement. 



examples: 



IF(A.AND.B)F=SIN(R) 
IF(17,GT.L) GOTO 24 
IF (D.OR.X.NE.Y) GO TO ( 18, 20), I 
IF (Q) CALL SUB 

If the logical expression t is true, statement s is exe- 
cuted and control passes to the next statement (unless 
statement s is an arithmetic iF-type or go TO-type state- 
ment, in which case control is transferred as indicated 
by the statement ) . If t is false, control passes to the next 
sequential statement without statement s being exe- 
cuted. 

If t is true and s is a call statement, control is trans- 
ferred to the next sequential statement upon return 
from the subprogram. 

DO Statement 

The do statement is used to cause repetitive execution 
of a series of statements, as many times as specified. 



GENERAL FORM 



DO n i=m 1 ,m 2 ,m 3 
where: 

1. n is a statement number. 

2. i is a nonsubscripted integer variable. 

3. mi, m2, and ma are each either an unsigned integer 
constant or an unsigned nonsuhsreiptpH integer „ Q ri a K1 ." 
if m3 is not stated, FORTRAN assumes it to be 1. 



examples: 

DO 30 1=1, 10 
D0 24J = 1,M,2 

The do statement results in the repeated execution 
of the statements that follow the do, up to and includ- 
ing the statement numbered n. The first time the state- 
ments are executed, i = mi. (This takes place even if 
mi exceeds m 2 .) For each succeeding execution, i is 
increased by m 3 ; i.e., the second time, i = mi + m 3 , the 
third time, i = mi+2m 3 , etc. This pattern of execution 
continues until i is equal to the highest value of this 
sequence that does not exceed m 2 . Control then passes 
to the statement following the last statement in the 
range of the do. 

Consider, for example, the following program: 



10 DO 20 1=1, 20, 2 
20A(I)=I*N(I) 



This would cause the following computation to take 
place: 

A(1)=1*N(1) ♦ 

A(3)=3*N(3) 

A(5)=5*N(5) 



A(19) = 19*N(19) 
During each execution, the correct index is substi- 
tuted for i, i*n(i) is computed, and the result is stored 
in a(i). When the do is satisfied, control passes to the 
statement following statement 20. 

1. The Range of a do is that set of statements that 
is executed repeatedly; i.e., it is the sequence of con- 
secutive statements immediately following the do state- 
ment, up to and including the statement numbered n. 
After the last execution of the range, the do is said to 
be satisfied. In the previous example, the range is state- 
ment 20. 

2. The Index of a do is the integer variable i. 
Throughout the range of the do, the index is available 
for computation, either as an ordinary integer variable 
or as the variable of a subscript. Upon exiting from a 
do by satisying the do, the index i must be redefined 
before it is used in computation. Upon exiting from a 
do by transferring out of the range of the do, the index 
i is available for computation and is equal to the last 
value it attained. In the previous example, the index 
is I. 

3. DOs within DOs. Among the statements in the 
range of a do may be other do statements; such a con- 
figuration is called a nest of DOs. If the range of a do 
includes another do, then all the statements in the 
range of the latter must also be in the range of the 
former. 

4. Transfer of Control and DOs. Control may not 
be transferred into the range of a do from outside its 
range. 

Thus, in the following configuration, 1, 2, and 3 are 
permitted transfers, but 4, 5, and 6 are not. 



DO 









4 














DO < 


1 
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5. Restrictions on Statements in the Range of a DO. 
Any statement that redefines the index or any of the 
indexing parameters ( m's ) is not permitted in the range 
of a do. In other words, the indexing of a do loop must 
be completely set before the range is entered. When 
a call statement is executed in the range of a do to 
reference a subprogram, care must be taken that the 
called subprogram or function does not alter the do 
index or indexing parameters. 

The statement that terminates the range of a do must 
be an executable statement. The range of a do cannot 
end with an arithmetic iF-type or go TO-type statement. 
The range of a do may end with a logical if, in which 
case control is handled as follows: if the logical ex- 
pression is false, the do is reiterated; if the logical ex- 
pression t is true, statement s is executed and then the 
do is reiterated. However, if t is true and s is an arith- 
metic iF-type or go TO-type statement, control is trans- 
ferred as indicated. 

CONTINUE Statement 

The continue statement provides a means for inserting 
statement numbers m a source program without gen- 
erating any instructions in the object program; that is, 
it is used as a point of reference. 



GENERAL FORM 



CONTINUE 



continue may be used as the last statement in the 
range of a do when the do would otherwise end with 
an iF-or go TO-type statement (neither of which is 
permitted). 

PAUSE Statement 

The pause statement causes the machine to halt and 
( optionally ) an octal number to be printed on the type- 
writer. Depressing the Start key causes the object pro- 



gram to resume execution with the next executable 
Fortran statement. 



GENERAL FORM 



PAUSE or PAUSE n 
where: 

n is an unsigned odtal integer constant of one to five 
digits. 



examples : 
PAUSE 

PAUSE 77777 

Note that when the pause statement is executed, 
records processed by previous write statements may 
not have been completely written or punched on the 
physical output unit. 

STOP Statement 

This statement terminates the execution of any pro- 
gram by returning control to the Monitor. 



GENERAL FORM 



STOP 



Execution of a program can also be terminated by a 
return statement or by a call to the exit and dump 
subroutines ( the section, "exit, dump, and pdump" has 
additional information ) . 

END Statement 

The end statement terminates compilation of a pro- 
gram, a function subprogram, or a subroutine sub- 
program. 



GENERAL FORM 



END 



This statement must be the last statement of every 
program. 
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Input/Output Statements 



The Fortran statements that specify transmission of 
information to or from input/output devices may be 
grouped as follows: 

FORMAT Statement: The nonexecutable statement 
format specifies the arrangement of the information 
in the external input/output medium specified by the 
general input/output statements. 

General Input /Output Statements: The statements 
read and write cause the transmission of a specified 
list of quantities between core storage and an input/ 
output device. 

Auxiliary Input/Output Statements: The statements 
end file, rewind, and rackspace specify non-data 
actions of the input/output devices. 

List Specifications 

The statements that cause transmission of information 
require a list of quantities to be transmitted. This list 
must be in the same order that the words of informa- 
tion are (for input). For output, the list determines the 
order on the output medium. 

The following example illustrates the formation and 
meaning of an input/output list: 



A, B(3), (C(I), D(I,K), 1 = 1, 10), ((E(I, J), 1=1, 10, 
2),F(J,3),J = 1, K) 

If this list is used with an output statement, the in- 
formation will be written on the output medium in the 
following order: 

A, B(3), C(l), D(l, K), C(2), D(2, K), . . . , C(10), 

D(10,K), 
E(1,1),E(3,1),...,E(9,1),F(1,3), 
E(l,2), E(3, 2), . . . , E(9, 2), F(2, 3), . . . , F(K, 3). 



Similarly, if this list is used with an input statement, 
the successive words, as they are read from the ex- 
ternal medium, are placed into the sequence of storage 
locations just given. 

Thus, the list reads from left to right, with repetition 
for variables enclosed with parentheses. The list items 
are separated by commas. Only subscripted or non- 
subscripted variables or an implied do may be listed. 
The execution is exactly that of a do loop, as though 
each left parenthesis (except subscripting parentheses) 
were a do, with indexing given immediately before the 
matching right parenthesis and with the do range ex- 
tending up to that indexing information. The order of 
the preceding list can thus be considered the equiva- 
lent of the following "program": 



1. A 

2. B(3) 

3. DO 5 1=1, 10 

4. C(I) 

5. D(I,K) 

6. D0 9J = 1, K 

7. DO 8 1 = 1, 10,2 

8. E(I,J) 

9. F(J,3) 



(C(I),D(I,K),I = 1, 10) 



((E(I,J),I = 1, 10,2), 
F(J,3),J = 1,K) 



An implied do is best defined by an example. In the 
preceding input/output list, the list item (c(i),d(i,k), 
i=i, 10 ) is an implied do; it is evaluated as in the 
preceding program. The range of the implied do must 
be clearly defined by parentheses. A constant may 
appear in an input/output list only as a subscript or 
as an indexing parameter. Indexing information, as in 
dos, consists of three constants or integer variables, 
and the last of these may be omitted, in which case it 
is assumed to be 1. • 

For a list of the form k, a (k) or k, (a(i), i=i,k), 
where an index or indexing parameter itself appears 
earlier in the list of an input statement than its use. 



.the indexing is carried out with the newly read-in 
value. 

Any number of quantities may appear in a single 
list. During a read operation, the list controls the quan- 
tity of data read; if a record contains more quantities 
than are in the list, only the number of quantities 
specified in the list are transmitted, and any remaining 
quantities are ignored. Conversely, if the list contains 
more quantities than are given on one bcd input record 
(as defined by the format statement), more records 
are read; if a list contains more quantities than are 
given in one Fortran binary record, either job execu- 
tion or reading is terminated and the remaining list 
items are filled with zeros. 

Input/Output of Entire Arrays 

When input/output of an entire matrix is desired, an 
abbreviated notation can be used in the list of the 
input/output statement; only the name of the array 
need be given, and the indexing information can be 
omitted. 

Thus, if A has previously been listed in a dimension 
statement or in a dimensioned common or Type state- 
ment, the following statement is sufficient to read in 
all of the elements of the array, A: 

READ (5, 10) A 
If A has not appeared in a dimension statement or a 
dimensioned common or Type statement, only the 
first element is read in. 
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The elements read in by this notation are stored in 
accordance with the description of the arrangement of 
arrays in storage. Arrays are read or written in col- 
umnar fashion, with the first of their subscripts varying 
most rapidly and the last varying least rapidly. 



Format 

The bcd input/output statements require, in addition 
to a list of quantities to be transmitted, reference to a 
format statement that describes the type of conversion 
to be performed between the internal machine lan- 
guage and the external notation for each quantity in 
the list. 



Numerical Fields 

Five forms of conversion for numerical data are avail- 
able: 



GENERAL FORM 



FORMAT (Si,S 2 , . . • ,Sn/S'i,S' 2 , . . . ,S'n/. . .) 
where: 

each field, Si, is a format specification. 



example: 

FORMAT (12/ (E12.4, F10.2) ) 

The format statement specifies the types of data 
conversion to be performed. 

1. format statements are executed out-of-line; they 
can be placed anywhere in the source program. Each 
format statement must be given a statement number. 

2. The format statement indicates, among other 
things, the maximum size of each record to be trans- 
mitted. In this connection, it must be remembered that 
the format statement is used with the list of some 
particular input/output statement, except when a 
format statement consists entirely of H and/or X 
fields. In all other cases, control in the object program 
switches back and forth between the list (which 
specifies whether data remains to be transmitted) and 
the format statement (which contains the specifica- 
tions for transmission of that data ) . 

3. Slashes are used to terminate records. In each 
case, the record length specified must be no longer than 
132 characters, format (3F9.2, 2F10.4/8EU.5) specifies 
that the first, third, fifth, etc., records have the format 
(3F9.2, 2F10.4) and that the second, fourth, sixth, etc., 
records have the format (seu.s). 

4. During input/output of data, the object program 
interprets the format statement to which the relevant 
input/output statement refers. When a specification 
for an a-, d-, e-, f-, i-, l-, or o-type field is found, and 
list items remain to be transmitted, input/output takes 
place according to the specification, and interpretation 
of the format statement resumes. If no items remain, 
transmission ceases and execution of that particular 
input/output statement is terminated. Thus, a bcd 
input/output operation ends when there are no items 
remaining in the list. 



INTERNAL 


TYPE 


EXTERNAL 


Real 
Real 
Real 
Integer 
Octal integer 


D 

F 
I 
O 


Real, with D exponent 
Real, with exponent 
Real, without exponent 
Integer 
Octal integer 



These types of conversion are specified in the forms: 
Dw. d, Ew. d, Fw. d, Iw, and Ow 
where: 
D, E, F,I, andO 

represent the type of conversion, 
w 

is an unsigned integer constant that represents the field width 
for converted data; this field width may be greater than re- 
quired to provide spacing between numbers. 

is an unsigned integer or a zero that represents the number 
of positions of the field that appear to the right of the decimal 
point, not including the D or E exponent field, if present. 

The format of a numerical field is specified by 
giving, from left to right (beginning with the first char- 
acter of the field ) : 

1. The control character (d, e, f, i, or o) for the field. 

2. The width (w) of the field. Leading zeros in the 
integer part of an output number are suppressed, and 
a blank or a minus sign is placed in front of the first 
integer digit. If the entire integer part of the number 
is zero, the digit is zero. The specified width can be 
greater than required to provide spacing between 
numbers. 

3. The number of positions (d) of the decimal 
fraction that appears to the right of the decimal point 
for D-, E-, and F-type conversion. If d is greater than 
the maximum number of digits permitted by the ma- 
chine (i.e., 16 for D-type conversion, and 8 for E- and 
F-type conversion), the maximum number of digits is 
carried and unused digits are truncated. 

For example, the statement format (i2,ei2.4, 08, 
fio.4, D25.16) might cause the following line to be 
printed: 

I2E12.4 O8 F10.4 D25.16 

27J»-0,.9321EbQ2k7734276^bb-0.0Q7^-0.7878977909500672Db03| 

where: 






b indicates a blank space. 

Specifications for successive fields are separated by 
commas. A format specification that provides for more 
characters than the maximum input or output unit 
record size should not be given. Thus, a format for 
printed output should not provide for more characters 
per line (including blanks) than may be printed on 
one line by the printer. 
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D-, E-, F-, I-, AND O-CONVERSION 

D-conversion results in the transmission of w charac- 
ters containing a double-precision number of up to"l6" 



decimal digits. For input, the number is stored such 
that the most significant and least significant parts are 
in adjacent core storage locations. For output, the two 
core storage words representing the double-precision 
quantity are treated as a single data item and are 
converted as such. 

E-conversion results in the transmission of w char- 
acters containing a decimal mixed number and its 
exponent field, e.g., 5.02E2. The exponent, which must 
be used with E-conversion, is the power of 10 to which 
the number must be raised to obtain its true value. 
The exponent is written with an E, followed by a 
minus sign if the exponent is negative or a plus sign 
or a blank if the exponent is positive, and then fol- 
lowed by the two numbers that are the exponent. For 
example, the number .002 is equivalent to the number 

•2E-02. 

F-conversion results in the transmission of w char- 
acters containing a decimal mixed number only. 

I-conversion results in the transmission of w char- 
acters containing an integer number ot up to 11 decimal 
digits. I f an output number converted bv D- E- F- 
or I-conversion required more spaces than are allowed 
by the field width w, the excess on the high-order side 
is lost and no rounding occurs. If the number requires 
fewer than w spaces, the leftmost spaces are filled 
with blanks. If the number is negative, the space pre- 
ceding the leftmost digit contains a minus sign if suf- 
ficient spaces have been reserved. 

O-conversion results in the transmission of w char- 
acters of octal information. If w>12, only the twelve 
rightmost characters are transmitted and w— 12 blanks 
precede the field (output) or w-12 preceding char- 
acters are skipped (input). If w^12, the rightmost w 
characters of the word are transmitted (output) or 
the next w characters are right-adjusted in the word 
and the word is filled out on the left with zeros (input). 

The field width w for D-, E-, and F-conversion of 
output must include a space for the decimal point and 
a space for the sign. Thus, for D- and E-conversion, 
wg^d+7, and for F-conversion, w^d+3. 

Information to be transmitted with O-conversion 
may be given either a real name or an integer variable 
name; information to be transmitted with E- and F- 



, conversion must have real names; information to be 
.transmitted with D- conversion must have a double- 
.precision name; and information to fre transmittfd 
.with I-conversion must have an integer name. The 
names must be used as specified above; any other 
practice is invalid. 
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COMPLEX NUMBER FIELDS 

Since a complex quantity consists of two separate and 
independent real numbers, a complex number is trans- 
mitted by two successive real number specifications or 
by one real number specification that is repeated. 

The following is an example of a format statement 
that transmits an array consisting of six complex num- 
bers: 

FORMAT (2E.10, E8.3, 1PE9.4, E10.2, F8.4, 
3(E10.2,F8.2)) 

Two levels of parentheses, in addition to the paren- 
theses required by the format statement, are per- 
mitted. The second level of parentheses facilitates the 
transmission of complex quantities. 



Alphameric Fields 

Fortran provides two specifications to transmit alpha- 
meric information: Aw and nH. Both result in storing 
the alphameric information internally in bcd form. 

1. The specification Aw causes w characters to be 
read into, or written from, a variable or array name, 
without conversion. 

2. The specification nH introduces alphameric in- 
formation into a format statement. 

The basic difference between A- and H-conversion 
is that information handled by A-conversion is given 
a variable name or an array name and hence can be 
referred to by this name for processing and modifica- 
tion, whereas information handled by H-conversion is 
not given a name and may not be referred to or manipu- 
lated in storage in any way. 

A-CONVERSION 

The variable name to be converted by A-conversion 
must conform to the normal rules for naming Fortran 
variables; the name may be any type. 

Input: nAw means that the next n successive fields 
of w characters each are to be stored as bcd informa- 
tion. If w is greater than 6, only the 6 rightmost char- 
acters are significant. If w is less than 6, the characters 
are left-adjusted, and the word is filled out on the 
right with blanks. 

Output: nAw means that the next n successive fields 
of w characters each are to be the result of transmission 
from storage without conversion. If w is greater than 6, 
only 6 characters of output are transmitted, preceded 
by w-6 blanks. If w is less than 6, the w leftmost char- 
acters of the word are transmitted. 

H-CONVERSION 

The specification nH is followed in the format state- 
ment by n alphameric characters, as for example, in 
the following: 



31HbTHISbISbALPHAMERICbINFORMATION 

Blanks are considered alphameric characters and 
must be included as part of the count n. The effect of 
nH depends on whether it is used with input or with 
output. 

Input: The n characters are extracted from the input 
record and replace the n characters immediately fol- 
lowing the character H in the format specification. 

Output; The n characters following the character H 
in the specification, or the characters that replaced 
them, are written as part of the output record. 

Example: The statement format (4hdxy=, fs.3,as) 

might produce the following lines : 

XY = s b-93.210bbbbbbbb 
XY = 9999.999bbOVFLOW 
XY = 



where; 

b indicates a blank space. 

This example assumes that there are steps in the 
source program that read the data ovflow, store this 
data in the word to be printed (as six bcd characters) 
in the format as when overflow occurs, and store six 
blanks in the word when overflow does not occur. 

LOGICAL FIELDS 

Logical variables may be read or written by means of 
the specification Lw. 

Input: The first T or F encountered in the next w 
characters of the input record causes a value of true 
or false, respectively, to be assigned to the correspond- 
ing logical variable. If the field w consists entirely of 
blanks, a value of false is assumed. Any character 
other than T, F, or blank encountered prior to a T, F, 
or blank causes an error exit. 

Output: A T or an F is inserted in the output record 
for a corresponding logical variable with a value of 
true or false, respectively. The single character is pre- 
ceded by w — 1 blanks. 

Blank Fields - X-Conversion 

The specification nX affects an input or an output 
record as follows: 

Input: nX causes n characters in the input record to 
be skipped. 

Output: nX causes n blanks to be introduced into 
the output record. 

Repetition of Field Format 

It may be desired to read, write, punch, or print n 
successive fields within one record in the same format. 
The programmer may specify this by giving n, an un- 
signed integer constant, before A, D, E, F, I, L, or O. 
The following format field will then be repeated n 
times. Thus, the field specification 3E12.4 has the same 
effect as the specification E12.4-, E12.4, E12.4. 



Repetition of Groups 

A limited parenthetical expression is permitted to en- 
able repetition pf data fields according to certain for- 
mat specifications within a longer format statement 
specification. The first character- in the expression 
specifies the number of repetitions and is known as the 
group count. Thus, format (2(fio.6, eio.2), 14) is 
equivalent to format (fio.6, eio.2, fio.6, eio.2, 14). 

Scale Factors 

Jo permit more general use of D-, E-, and F-conver- 
sion, a scale factor followed by the letter P can precede 
the specification. The magnitude of the scale factor 
must be between —8 and +8 inclusive. 

The scale, facto r for input is defined as follows: 

10 - scale factor x ext ernal quantity = internal quantity 
The scale factor for output is defined as follows: 

10+ scal e factor x internal quantity = external quantity 
For input, scale factors affect only F-conversion. For 
example, if input data is in the form xx.xxxx and it is 
desired to use it internally in the form .xxxxxx. then 
the format specification to effect this change is 2PF7.4. 
For output, scale factors nan b/* 11gArl W1> h r>- F- and 
F-conversion. 

For example, the statement format (12, 3FH.3) 
would give the printed line: 

27bbbb-93.209bbbbb-0.008bbbbbb0.B54 
The statement format (12, iP3Fii.3). u sed with the 
same data, would give the line: 

27bbb - 932.094hhhhh - Q.n 7ftfrh>KMv* MW. 
On the other hand, the statement format (12. - ip3fii.3) 
would give the line: 

27bbbbb-9.321bbbbb-0.001bbbbbb0.055 
A p ositive scale factor used for output with D- and 
E-conversion increases the number an d d^ra-eases the 
exponent. Thus, with the sany data format. fi2. 
1P3E12.4) would produce the line: 

27b-9.3209Eb01b-7.5804E- n.^h5.5536E-01 
The s cale factor is assumed to be zero if no other 
value has been given. However, once a value has been 
given, it holds for all D-, E-, and F-conve rsions fol- 
lowing the scale factor within the same format state- 
ment. This applies to both single-record formats and 
multiple-record formats. Once a scale factor has been 
given, a subsequent scale factor of zero in the same 
format statement must be specified by OP. Scale 

factors have no effec t on I- or Q-conver$ion. 

% i. — '• 

Multiple-Record Formats 

So that it applies to more than one input or output 
record, a format specification can have several differ- 
ent one-record formats separated' by a slash (/) to 
indicate the beginning of a new record. 
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Thus, format (3F9.2, 2fio.4/8ei4.5) would specify a 
multi-record block of print in which records 1, 3, 5, 
. . . have the format (3F9.2, 2F10.4), and records 2, 4, 6, 
. . . have the format ( 8E14.5 ) . 

If a multiple-record format is desired in which the 
first two records are to be transmitted according to a 
special format and all succeeding records transmitted 
according to another format, the last record specifica- 
tion should be enclosed in a second pair of paren- 
theses; e.g., FORMAT (12, 3E12.4/2F10.3, 3F9.4/( 10F12.4) ). 

If data items remain to be transmitted after the format 
specification has been completely used, the format 
repeats from the last open parenthesis, using its pre- 
ceding group count, if any. As these examples show,* 
both the slash and the right parenthesis of the format 
statement indicate a termination of a record. 

The programmer may introduce blank records into 
a multi-record format statement by listing consecu- 
tive slashes. When n consecutive slashes appear at the 
end of the format, they are treated as follows: for 
input, n records are skipped; for output, n blank rec- 
ords are written. When n consecutive slashes appear 
in the middle of the format, n-1 records are skipped 
for input and n-1 blank records are written for output. 

Carriage Control 

When any bcd output statement that causes records to 
be written is given, the records are either printed 
directly on-line or may be printed later by an off-line 
printer. To space the printed output records properly, 
the following carriage control characters may be used: 



CHARACTER 

Blank 


1 



EFFECT 

Single space before printing. 

Double space before printing. 

Skip to a punch in Channel 1; i.e., eject. 



To obtain such carriage control, the control character 
must appear as the first character of the first word of 
the bcd record. This may be done if the format speci- 
fication for a bcd record is begun with 1H followed by 
the desired control character. Under program control, 
the control character is not printed. 

FORMAT Statements Read in at Object Time 

Fortran accepts a variable name in the place of a 
statement number when referencing a format stated" 
ment. This provides the facility of specifying a format 
for an input/output list during execution of the com- 
piled program. 

examples: 

DIMENSION FMT (12) 
1, FORMAT (12A6) 
KEAD(5,1) (FMT(I).I = 1. 12; 
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KttAD(5,FMT)A.k7e/lU=i,5) 



Thus, A, B, and the array C would be converted and 
stored according to the format specification read into 
the array fmt at object time. 

The format read in at object time must take the same 
form as a source program format statement, except 
that the word format is omitted; i.e., the variable 
format begins with a left parenthesis and ends with a 
right parenthesis. 

^format statements may not be subscripted; thus, an 
expression such as read (5, fmt(i) ) a, b would not be 
permitted. 



Data Input to the Object Program 

Data input to the object program is prepared according 
to the following specifications: 

1. The data must correspond in order, type, and field 
to the field specifications in the format statement. 
Punching begins in card column 1. 

2. Plus signs can be omitted, or they can be indi- 
cated by a blank or a 12-punch. Minus signs must be 
indicated by an 11-punch. 

3. Blanks in numerical fields are regarded as zeros. 

4. Numbers for D-, E-, and F-conversion can contain 
any number of digits, but only the high-order digits 
are retained. For D-conversion, the number is rounded 
to the 16 high-Order digits of accuracy and, for E- and 
F-conversion, to the eight high-order digits of accuracy. 

To permit economy in punching, certain relaxations 
in input data format are permitted: 

1. Numbers for D- and E-conversion need not have 
four columns occupied by the exponent field. The start 
of the exponent field must be marked by the E or D or, 
if that is omitted, by a + (plus) or a - (minus), not 
a blank. Thus, E2, E+2 ? +2, +02, and D+02 are all 
permissible exponent fields. 

2. Numbers for D-, E-, and F-conversion need not 
have their decimal point punched. If it is not punched, 
the format specification supplies the number of 
decimal places expected. For example, the number 
— 09321+2 with the specification E12.4 is treated as 
though the decimal point had been punched between 
the and the 9. If the decimal point is punched on the 
card, its position overrides the position indicated in the 
format statement. 



The General Input /Output Statements 

This set of statements specifies transmission of infor- 
mation between core storage and the input or output 
media. 



Input 

The read statement designates input. 



GENERAL FORM 



Following are the two forms of the READ statement: 
READ (i, n) list 
READ (i) list 
where: 

1. i is an unsigned integer constant or an integer variable 
that refers to an input device. 

2. n is a FORMAT statement number or a variable 
FORMAT name. 



examples: 

READ (5, 10) A, B, (D(J), J = l, 10) 
READ (N, 10) K, DC (J) 
READ (3) (A(T),J = 1, 10) 
READ(N) (A(J),J = 1, 10) 

1. The read (i, n) list statement causes bcd informa- 
tion to be read from logical unit i. 

2. The read ( i ) list statement causes binary informa- 
tion to be read from logical unit i. 

Under the form read (i, n) list, successive records 
are read until the entire input/output list has been 
satisfied; i.e., all data items have been read, converted, 
and stored in the locations specified by the input/out- 
put list. 

Under the form read (i) list, a record is read 
completely only if the list specifies as many words as 
the record contains. The list cannot specify more words 
than the record contains. Binary records to be read in 
by a Fortran program should be written by a Fortran 
program or should be in the proper binary record for- 
mat, as follows: 

Consider a Fortran record to be any sequence of 
words written by one Fortran output statement. When 
written in binary, this Fortran record may be divided 
into several iocs logical records. The iocs record 
length is specified in the publication, IBM 7040/7044 
Operating System (16/32K): Systems Programmers 
Guide, Form C28-6339. The first word of each of these 
logical records is a signal word interpreted only by 
Fortran. The decrement of this signal word specifies 
the number of words in the logical records that follow; 
the address is zero for all but the last logical record 
of the Fortran record. The address of this last signal 
word contains the number of logical records in the 
entire Fortran record. 

Output 

The write statement designates output. 



GENERAL FORM 



Following are the forms of the WRITE statement: 
WRITE (i, n)list 
WRITE (i) list 
where: 

1. i is an unsigned integer constant or an integer variable 
that refers to an output device. 

2. n is a FORMAT statement number or a variable 
FORMAT name. 



EXAMPLES: 

WRITE (6, 10) A, B, (C(J), J=l, 10) 
WRITE (N, 11) K,D(J) 
WRITE (2) (A(J),J = 1,10) 
WRITE (M) A, B, C 

1. The write (i, n) list statement causes bcd infor- 
mation to be written on logical unit i. 

2. The write (i) list statement causes binary infor- 
mation to be written on logical unit i. 

3. In the output statement in item 1, successive 
records are written in accordance with the format 
statement until the list has been satisfied. In the output 
statement in item 2, one Fortran record, consisting of 
all the words specified in the list, is written. 

Figure 7 shows the correspondence between Fortran 
logical units and system units. 



FORTRAN 

Logical 

Input/Output 

Unit 


System 

Unit 

Assignment 


System 

Unit 

Description 





S.SU00 


Utility 


1 


S.SU01 


Utility 1 


2 


S.SU02 


Utility 2 


3 


S.SU03 


Utility 3 


4 


S.SU04 


Utility 4 


5 


S.SIN1 


System Input Unit 


6 


S.SOU1 


System Output Unit 


7 


S.SPP1 


System Peripheral Punch Unit 


READ 


S.SIN1 


System Input Unit 


PRINT 


S.SOU1 


System Output Unit 


PUNCH 


S.SPP1 


System Peripheral Punch Unit 



Figure 7. Correspondence Between FORTRAN Logical Units 
and System Units 



The Auxiliary Input/Output Statements 

The statements end file, rewind, and backspace, 
cause, respectively, the object program to write an 
end-of-file mark on the tape unit specified, or a rewind 
or backspace of the symbolic or actual tape unit 
specified. 



GENERAL FORM 



Following is the form of the END FILE, REWIND, and 

BACKSPACE statements: 

END FILE i 

REWIND i 

BACKSPACE i 

where: 

i is an unsigned integer constant or integer variable that 
refers to an input/output device. 
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examples: 

END FILE 3 
END FILE N 
REWIND 3 
REWIND N 
BACKSPACE 3 

1. The end file i statement causes the object pro- 
gram to close the file corresponding to logical unit i 
with an end-of-file procedure; there is no rewind pro- 
cedure. 

2. The rewind i statement causes the object program 
to close the file corresponding to logical unit i with 
the end-of-file and the rewind procedure. 

3. The backspace i statement causes device i to be 
backspaced one physical record if i refers to an input/ 
output device in BCD mode, or it causes the device i 
to be backspaced one FORTRAN record if i refers to 
an input/output device in binary mode. The mode of a 
device is determined by the mode of the most recent 
input or output statement referring to that device. 



When backspacing occurs, one physical tape record is 
assumed to consist of only one iocs logical record. 
Therefore, when t a backspace statement refers to a 
logical unit of which the current mode is binary, the 
signal word address of the last physical record deter- 
mines the total number of physical records to be back- 
spaced. 

4. A request to write an end of file or to rewind 
system files s.sini, s.soui, and s.sppi, corresponding in 
the standard Fortran Input/Output Library to logical 
units 5, 6, and 7, causes job termination or is ignored. 
(The publication, IBM 7040/7044 Operating System 
(16/32K): Programmers Guide, Form C28-6318, has 
additional information. ) 

5. Care should be taken to prevent writing an end 
of file, rewinding, and backspacing on units attached 
to unit record equipment. (The publication, IBM 
7040/7044 Operating System (16/32K): Input/Output 
Control System, Form C28-6309, has additional in- 
formation. ) 



22 



Subroutines and Functions 



There are four classes of subroutines in Fortran: arith- 
metic or logical statement functions, built-in functions, 
function subprograms (including library functions), 
and subroutine subprograms. The major differences 
among the four classes of subroutines are: 

1. The first three classes may be grouped as func- 
tions; they differ from the subroutine subprogram in 
the following respects: 

a. The functions are always single-valued (that 
is, they return a single result); the subroutine 
subprogram may return more than one value. 

b. A function is referred to by an arithmetic or 
logical expression containing its name; a sub- 
routine subprogram is referred to by a call 
statement. 

2. A built-in function is an open subroutine; i.e., a 
subroutine that is incorporated into the object program 
each time it is referred to in the source program. The 
three other Fortran subroutines are closed; i.e., they 
appear only once in the object program. 



Naming Subroutines 

All four classes of subroutines are named in the same 
manner as a Fortran variable (see the section "Vari- 
ables"). 

1. A subroutine name consists of 1-6 alphameric 
characters, the first of which must be alphabetic. 

2. The type of the function, which determines the 
type of the result, may be defined as follows: 

a. The type of an arithmetic or logical statement 
function may be indicated by the name of the 
function or by placing the name in a Type state- 
ment. 

b. The type of a function subprogram may be in- 
dicated by the name of the function ( if it is real 
or integer) or by writing the type as part of the 
function statement (real function, integer 
function, complex function, double preci- 
sion function, logical function ) . In the latter 
case, the type, implied by name, is overridden. 

c. The type of a built-in function is indicated 
within the Fortran processor and need not ap- 
pear in a Type statement. 

3. The type of a subroutine subprogram is un- 
important and need not be defined, since the type of 
results returned is dependent only on the type of the 
variable names in the dummy argument list. 



Defining Subroutines' 

The method of defining each class of subroutines is 
discussed in the following text. 

Arithmetic and Logical Statement Functions 

Arithmetic and logical statement functions are defined 
by a single arithmetic or logical assignment statement 
in the source program and apply only to the particular 
program or subprogram in which the definition ap- 
pears. 
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a=b 
where: 

1. a is a function name followed by parentheses enclos- 
ing its arguments, which must be distinct, nonsubscripted 
variables, separated by commas. 

2. b is an expression that does not involve subscripted 
variables. Any arithmetic statement function appearing in b 
must have been defined previously. 



examples: 

FIRST (X)=A*X+B 
JOB(X,B)=C*X+B 
THIRDF ( D ) =FIRST ( E ) /D 
MAX(A,I)=A**I-B-C 
LOGFCT (A, C) =A**2. GE. C/D 

The type of the function and its arguments must be 
defined in the same manner as normal variables. 

As many as desired of the variables appearing in b 
may be stated in a as the arguments of the function. 
Since the arguments are dummy variables, their names, 
which indicate the type of the variable, may be the 
same as names of the same type appearing elsewhere 
in the program. 

Variables included in b that are not stated as argu- 
ments are the parameters of the function. They are 
ordinary variables. 

The type of each argument must be defined pre- 
ceding its use in the statement function definition. 

All statement function definitions must precede the 
first appearance of the function name in an executable 
statement or another statement function definition. 

Built-in (or Open) Functions 

Built-in functions are predefined open subroutines that 
exist within the Fortran processor. They generate 
instructions that are compiled in-line every time the 
function is referred to. 
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The names of built-in functions cannot be used as 
subroutine or variable names. 

Figure 8 lists all available built-in functions. 

Library (or Closed) Functions 

Library (or closed) functions are function subpro- 
grams that are prewritten and exist on the library tape 
or in prepared card decks. These functions constitute 



closed subroutines; i.e., instead of appearing in the 
object program for every reference that has been made 
to them in the source program, they appear only once 
regardless of the number of references. 

Library subroutines that perform mathematical 
functions are provided. Subroutines marked with an 
* (asterisk) are internal to Fortran and cannot be 
referred to by a call in the source program. 



Function 
Definition 


Function 
Name 


No. of Args. 


Type of 


Function 


Argument 


Absolute value of 
the argument 


ABS 
IABS 
DABS 


1 
1 
1 


Real 

Integer 

Double-precision 


Real 

Integer 

Double-precision 


Truncation, sign of 
argument times absolute 
value of the largest 
integer in argument 


AINT 

INT 

IDINT 


1 
1 
1 


Real 

Integer 

Integer 


Real 
Real 
Double-precision 


Remaindering, 

Arg 1 - [Arg 1/Arg2]* Arg2, 
where [X] indicates the 
integral part of X 


AMOD 
MOD 


2 


Real 
Integer 


Real 
Integer 


Choosing the largest 
value of the set of 
arguments 


AMAXO 

AMAXl 

MAXO 

MAX! 

DMAX1 


^2 
^2 
^2 
^2 
^2 


Real 

Real 

Integer 

Integer 

Double-precision 


Integer 

Real 

Integer 

Real 

Double-precision 


Choosing the 
smallest value of the 
set of arguments 


AMINO 

AMIN1 

MINO 

MINI 

DMIN1 


^2 
^2 
^2 
^2 
^2 


Real 

Real 

Integer 

Integer 

Double-precision 


Integer 

Real 

Integer 

Real 

Double-precision 


Floating an integer 


FLOAT 


1 


Real 


Integer 


Same as INT 


IFIX 


1 


Integer 


Real 


Transfer of sign, 
the sign of Arg 2 
times Arg 1 


SIGN 
ISIGN 
DSIGN 


2 
2 
2 


Real 

Integer 

Double-precision 


Real 

Integer 

Double-precision 


Positive difference, 

Arg 1 - Min (Arg 1, Arg 2) 


DIM 
IDIM 


2 
2 


Real 
Integer 


Real 
Integer 


Obtaining the most significant 
part of a double-precision 
argument 


SNGL 


1 


Real 


Double-precision 


Obtaining the real part of a 
complex argument 


REAL 


1 


Real 


Complex 


Obtaining the imaginary part 
of a complex argument 


AIM AG 


1 


Real 


Complex 


Expressing a single-precision 
argument in double-precision 
form 


DBLE 


1 


Double-precision 


Real 


Expressing two real arguments 
in complex form 
C = Argl + iArg2 


CMPLX 


2 


Complex 


Real 


Obtaining the conjugate of a 
complex argument; for 
Arg = X + iY, C = X - iY 


CONJG 


1 


Complex 


; Complex 



Figure 8. Built-in Functions 
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DESCRIPTION 

A call to this subroutine is 
compiled for a source pro- 
gram exponential term such 
as I**J, where I and J are 
integer. This subroutine com- 
putes the- Jth power of I 
with accuracy up to 35 sig- 
nificant bits. 



A call to this subroutine is 
compiled for a source pro- 
gram exponential term such 
as A** J, where A is real and 
J is integer. This subroutine 
computes the Jth power of A 
with accuracy up to eight 
significant digits. 



A call to this subroutine is 
compiled for a source pro- 
gram exponential term such 
as A**B, where A and B are 
real. This subroutine com- 
putes the Bth power of A 
with accuracy up to eight sig- 
nificant digits. 



A call to this subroutine is 
compiled for a source pro- 
gram statement such as 
Y=EXP(X), where X is 
real. This subroutine com- 
putes e x , the natural anti- 
logarithm of X, with an 
accuracy up to eight sig- 
nificant digits. 



ALOG 

Entry point for A call to this subroutine is 

the real natural log- compiled for a source pro- 
gram statement such as 
Y=ALOG(X), where X is 
real. This subroutine com- 
putes Loge(X) with accu- 
racy up to eight signifi- 
cant digits. 



ENTRY POINT 

.EXP1. 

Entry point for 
an integer exponent 
and base. The out- 
put is integer. 



.EXP2. 

Entry point for 
an exponential sub- 
routine whose base 
is real and whose 
exponent is integer. 



.EXP3. 

Entry point for 
an exponential sub- 
routine whose base 
and exponent are 
real. 



EXP 

Entry point for 
a real natural anti- 
logarithm subrou- 
tine. 



ROUTINE 



*XP1 



arithm subroutine. 



ALOG10 

Entry point for 
the real common 



logarithm 
tine. 



subrou- 



ATAN 

Entry point for 
the real arc tangent 
subroutine. This en- 
try point has one 
argument. 



A call to this subroutine is 
compiled for a source pro- 
gram statement such as 
Y=ALOG10(X), where X 
is real. This subroutine com- 
putes Logio(X) with accu- 
racy up to eight significant 
digits. 



A call to this subroutine is 
compiled for a source pro- 
gram statement such as 
Y=ATAN(X), where X is 
real. This subroutine com- 
putes Arc tan(X) in radians 
with accuracy up to eight sig- 
nificant digits. 



"XP2 



*XP3 



XPN 



LOG 



LOG 



ATN- 



ENTRY POINT 

ATAN2 

Entry point for 
the real arc tangent 
subroutine. This en- 
try point requires 
two arguments. 



SIN 

Entry point for 
the real sine-cosine 
subroutine. The in- 
put is expressed in 
radians. 



COS 

Entry point for 
the real sine-cosine 
subroutine. The in- 
put is expressed in 
radians. 



TANH 

Entry point for 
the hyperbolic tan- 
gent subroutine. 



SQRT 

Entry point for 
the real square root 
subroutine. 



ARSIN 

Entry point for 
the real arc sine- 
arc cosine subrou- 
tine. 



ARCOS 

Entry point for 
the real arc sine- 
arc cosine subrou- 
tine. 



FCAOP. 

Entry point for 
arithmetic opera- 
tions involving two 
complex numbers. 



DESCRIPTION ROUTINE 

A call to this subroutine is ATN 
compiled for a source pro- 
gram statement such as 
Y=ATAN2(X, Y), where X 
and Y are real. This subrou- 
tine computes Arc tan(X/Y) 
in radians with accuracy up 
to eight significant digits. 

A call to this subroutine is SCN 
compiled for a source pro- 
gram statement such as 
Y=SIN(X), where X is 
real. This subroutine com- 
putes Sin(X) with accuracy 
up to eight significant digits. 

A call to this subroutine is SCN 
compiled for a source pro- 
gram statement such as 
Y=COS(X), where X is 
real. This subroutine com- 
putes Cos(X) with accuracy 
up to eight significant digits. 

A call to this subroutine is TNH 
compiled for a source pro- 
gram statement such as 
Y=TANH(X), where X is 
real. This subroutine com- 
putes Tanh(X) with accu- 
racy up to eight significant 
digits. 

A call to this subroutine is SQR 
compiled for a source pro- 
gram statement such as 
Y=SQRT(X), where X is 
real. This subroutine com- 
putes the square root of X 
with accuracy up to eight 
significant digits. 

A call to this subroutine is ARSCN 
compiled for a source pro- 
gram statement such as 
Y=ARSIN(X), where X is 
real. This subroutine com- 
putes Arc sin(X) in radians 
with accuracy up to eight 
significant digits. 

A call to this subroutine is ARSCN 
compiled for a source pro- 
gram statement such as 
Y=ARCOS(X), where X is 
real. This subroutine com- 
putes Arc'cos(X) in radians 
with accuracy up to eight 
significant digits. 

A call to this subroutine is *FCA 
compiled for source program 
statement such as CA=CB + 
CC, CA = CB-CC, CA = 
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ENTRY POINT 



CXP1. 

Entry point for 
a complex base and 
integer exponent. 



DXPI. 

Entry point for 
a double-precision 
base and an integer 
exponent. 



DXP2. 

Entry point for 
a double-precision 
base and exponent. 



DMOD 

Entry point for a 
double-precision re- 
maindering func- 
tion. 



DEXP 

Entry point for 
a double-precision 
natural antiloga- 
rithm subroutine. 



DESCRIPTION 

CB*CC,orCA = CB/CC, 
where CA, CB, and CC are 
complex. This subroutine 
performs the complex opera- 
tion required with accuracy 
up to eight significant digits 
for the real and imaginary 
parts of the result. 



A call to this subroutine is *FDX1 
compiled for a source pro- 
gram exponential term such 
as CA**I, where CA is com- 
plex. This subroutine com- 
putes the Ith power of CA 
with accuracy up to eight 
significant digits. 



A call to this subroutine is *FDX1 
compiled for a source pro- 
gram exponential term such 
as DA**I, where DA is dou- 
ble-precision. This subroutine 
computes the Ith power of 
DA with accuracy up to 16 
significant digits. 



A call to this subroutine is *FDX2 
compiled for a source pro- 
gram exponential term such 
as A**B, where A is real 
and B is double-precision, 
or A is double-precision and 
B is real, or A and B are 
double-precision. If one 
term is real, it will be con- 
verted to double-precision 
before entry into the sub- 
routine. This subroutine com- 
putes the Bth power of A 
with accuracy up to 16 sig- 
nificant digits. 



A call to this subroutine is FDMD 
compiled for a source pro- 
gram statement such as Y= 
DMOD ( X, Z ) , where X and 
Z are double-precision. This 
subroutine computes the ex- 
pression X-[X/Z]*Z, where 
[] (brackets) indicate the 
integral part of the division. 
The result is accurate up to 
16 significant digits. 



A call to this subroutine is FDXP 
compiled for a source pro- 
gram statement such as Y= 
DEXP(X), where X is 
double-precision. This sub- 
routine computes e x , the nat- 
ural antilogarithm of X, with 
accuracy up to 16 significant 
digits. 



ENTRY POINT 



DESCRIPTION 



DLOG 

Entry point for A call to this subroutine is 

a double-precision compiled for a source pro- 
gram statement such as 
Y=DLOG(X), where X is 
double-precision. This sub- 
routine « computes Log e { X ) 
with accuracy up to 16 sig- 
nificant digits. 



natural logarithm 
subroutine. 



DLOG10 

Entry point for 
a double-precision 
common logarithm 
subroutine. 



DATAN 

Entry point for 
the double-precision 
arc tangent sub- 
routine. This entry 
point has one argu- 
ment. 



DATAN2 

Entry point for 
the double-precision 
arc tangent sub- 
routine. This entry 
point requires two 
arguments. 



DSIN 

Entry point for 
the double-precision 
sine-cosine subrou- 
tine. The input is 
expressed in ra- 
dians. 



DCOS 

Entry point for 
the double-precision 
sine-cosine subrou- 
tine. The input is 
expressed in ra- 
dians. 



DSQRT 

Entry point for 
the double-precision 
square root subrou- 
tine. 



A call to this subroutine 
is compiled for a source 
program statement such as 
Y=DLOG10(X), where X 
is double-precision. This sub- 
routine computes Logio(X) 
with accuracy up to 16 sig- 
nificant digits. 



A call to this subroutine is 
compiled for a source pro- 
gram statement such as 
Y=DATAN(X), where X is 
double-precision. This sub- 
routine computes Arc tan (X) 
in radians with accuracy up 
to 16 significant digits. 



A call to this subroutine is 
compiled for a source pro- 
gram statement such as 
Y=DATAN2(X,Z), where X 
and Z are double-precision. 
This subroutine computes 
Arc tan(X/Z) with accuracy 
up to 16 significant digits. 



A call to this subroutine is 
compiled for a source pro- 
gram statement such as 
Y=DSIN(X), where X is 
double-precision. This sub- 
routine computes Sin(X) 
with accuracy up to 16 sig- 
nificant digits. 



A call to this subroutine is 
compiled for a source pro- 
gram statement such as 
Y=DCOS(X), where X is 
double-precision. This sub- 
routine computes Cos(X) 
with accuracy up to 16 sig- 
nificant digits. 



A call to this subroutine is 
compiled for a source pro- 
gram statement such as 
Y=DSQRT(X), where X is 
double-precision. This sub- 
routine computes the square 
root of X with accuracy up 
to 16 significant digits. 



ROUTINE 



FDLG 



FDLG 



FDAT 



FDAT 



FDSC 



FDSC 



FDSQ 



26 



ENTRY POINT 
CABS 

Entry point for 
the complex abso- 
lute value subrou- 
tine. (The argu- 
ment is complex, 
but the function is 
real. ) 



DESCRIPTION 



A call to this subroutine is FCAB 
compiled for a source pro- 
gram statement such as 
Y=CABS(X), where X is 
complex. This subroutine 
computes (Xi* + X»*)V*, 
where Xi and X2 are the real 
and imaginary parts of X, 
with accuracy up to eight 
significant digits for the real 
variable Y. 



CEXP 

Entry point for A call to this subroutine is FCXP 
the complex natural compiled for a source pro- 
exponential subrou- gram statement such as 
tine. Y=CEXP(X), where X is 

complex. This subroutine 
computes e x , the natural 
antilogarithm of X, with accu- 
racy up to eight significant 
digits for the real and imagi- 
nary parts of the result. 

CLOG 

Entry point for A call to this subroutine is FCLG 
the complex nat- compiled for a source pro- 
ural logarithm sub- gram statement such as 
routine. Y=CLOG(X), where X is 

complex. This subroutine 
computes Loge(X) with accu- 
racy up to eight significant 
digits for the real and imagi- 
nary parts of the result. 

CSIN 

Entry point for A call to this subroutine is FCSC 
the complex sine- compiled for a source pro- 
cosine subroutine. gram statement such as 
Y=CSIN(X), where X is 
complex. This subroutine 
computes Sin(X) with accu- 
racy up to eight significant 
digits for the real and imagi- 
nary parts of the result. 

CCOS 

Entry point for A call to this subroutine is FCSC 
the complex sine- compiled for a source pro- 
cosine subroutine, gram statement such as 
Y=CCOS(X), where X is 
complex. This subroutine 
computes Cos(X) with accu- 
racy up to eight significant 
digits for the real and imagi- 
nary parts of the result. 

CSQRT 

Entry point for A call to this subroutine is FCSQ 
the complex square compiled for a source pro- 
root subroutine, gram statement such as 
Y=CSQRT(X), where X is 
complex. This subroutine 
computes the square root of 
X with accuracy up to eight 
significant digits for the real 
and imaginary parts of the 
result. 



FUNCTION Subprogram 

function subprograms are subroutines that cannot be 
defined by only one arithmetic statement and that are 
not used often enough to warrant a place on the library 
tape, function subprograms are defined as separate 
Fortran source language programs. 



GENERAL FORM 



FUNCTION name ( ai,a2, . . . ,a n ) 
where: 

1. name is the symbolic name of a single-valued function. 

2. The arguments ai, a2, ■ . . a n . of .which there must be 
at least one, are nortsubscripted variab le, names, names of 
SUBROUTINE subprograms, names of FORTRAN func- 
tions, or names of library functions. 



examples: '. 

REAL FUNCTION ROOT (B, A, C) 
FUNCTION INTRST (RATE,- YEARS) 
LOGICAL FUNCTION IFTRU (D, E, F) 
INTEGER FUNCTION CONST (ING, SG) 
DOUBLE PRECISION FUNCTION DUBL (DD, DF) 
COMPLEX FUNCTION CPLEX (CA, CB) 

Where it is desired to override the implicit or normal 
type of name in a function statement, one must state 
the type (see "Type Declaration Statements"); the 
type must immediately precede the word function. 

The function statement appears, therefore, in one 
of the following six ways: 

FUNCTION 

REAL FUNCTION 

INTEGER FUNCTION 

LOGICAL FUNCTION 

DOUBLE PRECISION FUNCTION 

COMPLEX FUNCTION 

The function statement must be the first statement 
of a function subprogram. In a function subprogram, 
the name of the function must appear at least once as 
the variable on the left side of an arithmetic or logical 
statement or in an input statement; for example, name 
appears in the following both as the name of the func- 
tion and as the variable on the left of an arithmetic 
statement: 

FUNCTION NAME (A, B) 



NAME=Z+B 

RETURN 

This returns the output value of the function to the 
calling program. 

A function subprogram- constitutes a complete com- 
pilation and need not be compiled with other programs 
or subprograms. It must be loaded with other programs 
to form a complete object program. 

The arguments following the name in the function 
statement may be considered dummy variable names. 
That is, during object program execution, other 
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actual arguments are substituted for them. Therefore, 
the arguments that follow the function reference in the 
calling program must agree with those in the function 
statement in the subprogram in number, order, and 
type. Furthermore, when a dummy argument is an 
array name, the corresponding actual argument must 
also be an array name. Each of these array names with 
the same dimensions must appear in dimension state- 
ments of their respective programs. None of the 
dummy variables may appear in equivalence or in 
common statements in the function subprograms. 

The function subprogram must be logically termi- 
nated by a return statement (the section "return 
Statement" has additional information ) . 

The function subprogram can contain any Fortran 
statement except a subroutine statement or another 
function statement. A function subprogram is re- 
ferred to when the programmer uses its name as an 
operand in an arithmetic expression. 

RULES FOR CALLING FUNCTIONS 

Functions are called in a program by their appearance 
within an arithmetic expression. For example: 

Y = A-SIN(B-C) 

X = NAME (Z(I),Q)+KOUNT 

All names of library and Fortran functions are used 
in this way. Their appearance in the arithmetic expres- 
sion serves to call the function; the value of the func- 
tion is then computed, using the arguments that are 
supplied in the parentheses following the function 
name. The arguments must be the same type as those 
used in the function definitions. The arguments used 
can be constants, variables with or without subscripts, 
and/or arithmetic/logical expressions, including func- 
tion usages. An argument of a statement function can- 
not be a function or subroutine name. 

The arguments of a function subprogram can be 
any of the following: 

1. Any type of constant. 

2. Any type of subscripted or nonsubscripted vari- 
able. 

3. An arithmetic or logical expression. 

4. The name of a function or suhroutine sub- 
program. 

SUBROUTINE Subprogram 

subroutine subprograms are separate Fortran source 
language programs. 



EXAMPLES: 



GENERAL FORM 



SUBROUTINE name ( ai, a 2 , . . . a n ) 
where: 

1. name is the symbolic name of a subprogram. 

2, Each argument, if anv. is a nonsiihsrrinted variaMo 
name or the name of a SUBROUTINE or FUNCTION 



SUBROUTINE MATMPY (A, N, M, B, L, J, C, K, I) 
SUBROUTINE NOPAR 



The subroutine statement must be the first state- 
ment of a subroutine subprogram and defines it as 
such. A subprogram introduced by the subroutine 
statement must be a Fortran program and may con- 
tain any Fortran statement except a function state- 
ment or another subroutine statement. 

Unlike the function subprogram, which returns only 
a single value, the subroutine subprogram may use 
one or more of its arguments to return output. The 
arguments may be considered dummy variable names 
that are replaced at the time of execution by the actual 
arguments supplied in the call statement that refers 
to the subroutine subprogram. The actual arguments 
must agree with the dummy arguments in number, 
order, and type. When a dummy argument is an array 
name, it must appear in a dimension statement in the 
subroutine subprogram; also, the corresponding actual 
argument in the call statement must be a dimensioned 
array name. None of the dummy arguments may ap- 
pear in an equivalence or common statement in the 
subroutine subprogram. 

The subroutine subprogram must be logically termi- 
nated by a return statement. 

RETURN Statement 

This statement logically terminates subroutine and 
function subprograms and returns control to the call- 
ing program. 



GENERAL FORM 



RETURN 



The return statement must be the last executed 
statement of the subprogram. It need not be physically 
last; it can be reached by program flow at any point. 
Any number of return statements may be used. 

A return statement in a main program terminates 
execution in the same manner as a stop statement. 

CALL Statement 

The call statement is used to transfer control to a 
subroutine subprogram. 



GENERAL FORM 



CALL subr ( ai, a2, . . . a n ) or CALL subr 
where : 

1. subr is the name of a SUBROUTINE subprogram 

2. ai, a2, ... a n are the arguments. 



examples: 



CALL MATMPY ( X, 5, 10, Y, 10, 2, Z, 5, 2 ) 

CALL QDRTIC ( 9, 732, Q/4. 536, R-S**2. 0, XI, X2) 
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The call statement transfers control to the sub- 
program and presents it with the actual arguments. 
Each argument may be one of the following: 

1. Any type of constant. 

'.2. Any type of subscripted or nonsubscripted vari- 
able. 



3. An arithmetic or a logical expression. 

4. The name of a function or subro utine sub- 

4 



:ram. 



prog 

5. Alphameric characters. Such arguments must be 
preceded by nH, where n is the count of the characters 
included in the argument, e.g., 6HbsTART. Blank spaces 
and special characters are considered part of the 
character count when used in alphameric fields. 

The arguments presented by the call statement 
must agree with the corresponding arguments in the 
subroutine statement of the called subprogram in 
number, order, type, and in array size. 

Subprograms Provided by FORTRAN 

Fortran includes several commonly used subroutines 
that are available to the programmer. The mathe- 
matical subroutines that are provided are defined as 
function subprograms. In addition, Fortran includes 
the subroutine subprograms exit, dump, and pdump. 
exit terminates job execution, dump dumps core stor- 
age and then terminates job execution, and pdump 
dumps core storage and then continues execution. 

Mathematical Subroutines 

The mathematical subroutines are function sub- 
programs and are listed in the section "Library (or 
Closed) Functions." 



EXIT, DUMP, and PDUMP 

The subprograms exit, dump, and pdump are referred 
to with a call 'statement. The following table shows 
how they appear: 



CALL EXIT 

CALL DUMP (ai, bi, fi, . . . , a n , b n , fn) 

CALL PDUMP ( ai, bi, f l, . . . , an, b n , f n ) 

where: 

1. a and b are variable names that indicate the limits 
of core storage to be dumped ( either a or b may represent 
upper or lower limits ) . 

2. f is an integer that indicates the dump format 
desired, defined as follows: 

0=dump as octal 

1 = dump as real 

2 = dump as integer 

3= dump as octal with mnemonics 



If for the dump or pdump subprogram the integer 
that indicates the dump format is omitted, Fortran 
assumes it to be and the dump is in octal; for example, 
instead of fldi,fld2,o,fld3,fld4,o the programmer may 
write fldi,fld2„fld3,fld4 for his arguments. If no argu- 
ments are given, all of core storage is dumped in octal. 

calls to the exit, dump, and pdump subprograms 
perform the following: 

1. call to the exit subprogram: This terminates the 
execution of a program by returning control to the 
Monitor. 

2. call to the dump subprogram: This causes the 
limits of core storage indicated by the arguments to be 
dumped and execution to be terminated by returning 
control to the Monitor. 

3. call to the pdump subprogram: This causes the 
limits of core storage indicated by the arguments to be 
dumped and execution to be continued. 
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The Specification Statements 



dimension, data, common, equivalence, and the Type 
statements are nonexecutable statements that supply 
the compiler with necessary information about storage 
allocation for the constants and variables used in the 
program. 



DIMENSION Statement 

The dimension statement specifies the number of di- 
mensions of an array. A single dimension statement 
may specify the dimensions of more than one array. 
The dimensions may be unsigned integer constants or 
integer variables. When integer constants are specified, 
the size of the array is defined. When integer variables 
are specified, location and size of an array are deter- 
mined at execution time as explained in the section, 
"Adjustable Dimensions." 

The dimension statement must precede the first ap- 
pearance of each subscripted variable in an executable 
statement or data statement. 



GENERAL FORM 



DIMENSION vi(ii),v 2 (i2 ),..., vm(im-) 
where: 

1 . v is a variable. 

2. i is composed of one, two, or three unsigned integer 
constants and/or integer variables, separated by commas 
(i may be composed of variables only when the DIMENr 
SION statement appears in a FUNCTION or SUB- 
ROUTINE subprogram). 



examples: 



DIMENSION A(10),B(5, 15), CVAL(3, 4, 5) 
DIMENSION NEXT (I, J, K) 
DIMENSION A (I, 2) 



Integer Dimensions 

The size of an array is defined when all its dimensions 
are integer constants in a dimension statement. This 
dimension statement provides the information neces- 
sary to allocate storage for an array. 

One, two, or three integer constants may also be 
specified as the dimensions of an array in a common 
statement or any of the Type statements. 

Adjustable Dimensions 

The name of an array and the constants that are its 
dimensions may be presented as arguments in a call to 
a function or subroutine subprogram. In the subpro- 
gram the dimensions of the array are given as variables, 



and the absolute dimensions are substituted when the 
subprogram is entered. Thus, the same subprogram 
may be used for arrays of varying sizes ( but with the 
same number of dimensions ) . 

A subprogram array that has adjustable dimensions 
must be defined in a calling program. Only a dimension 
statement or one of the Type statements may be used 
to define the array. The actual dimensions are pre- 
sented to a function subprogram through an arith- 
metic expression and to a subroutine subprogram 
through a call statement. 

In the subprogram the subroutine or function 
statement argument list must contain the dummy array 
name and all the variables used as dimensions. The 
dimension statement in the subprogram must show 
the variables as dimensions of the dummy array. These 
dimensions may not be altered within the subprogram. 

The following example illustrates the use of ad- 
justable dimensions: 



CALLING PROGRAM 



DIMENSION B( 2, 3) 
CALL MAYMY(B, 2,3) 



DIMENSION C( 4, 5) 
CALLMAYMY(C,4,5) 



SUBPROGRAM 

SUBROUTINE MAYMY 
(R,L, M) 



DIMENSION R(L,M; 



DO 100 1 = 1, L 



The first time the subprogram maymy is entered, 
L and M, the variables used as dimensions of the array 
R, are replaced by 2 and 3, respectively. The array 
name B is substituted for the dummy array name R. 
The second time the subprogram is entered, the varia- 
bles L and M are replaced by 4 and 5, respectively, and 
the array name C is substituted for the dummy array 
name R. 

Following is an example of the use of adjustable 
dimensions in a function subprogram: 



MAIN PROGRAM 

DIMENSION A( 3) 
X=JOB(A, 3) 



SUBPROGRAM 



FUNCTION JOB (R, I) 
DIMENSION R( I) 



JOB = R(l) +R(2) +R(3) 
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DATA Statement 

Data variables may be defined in the source program 
by means of the data statement. The data statement 
provides for data to be placed into the object program 
during compilation of the program. If the data varia- 
bles are redefined during program execution, they will 
assume their new values regardless of the value given 
in the data statement. 



GENERAL FORM 



DATA list/di, d2, . . . dn/, list/di, d2, k*d3, . . . dm/, . . . 
where: 

1. list contains the names of the variables being defined, 
separated by commas (the elements of the list may have 
integer constant subscripts ) . 

2. d is an element of data. 

3. k is an integer constant that appears before the d field 
to indicate that the d field is to be repeated k times [an 
asterisk ( * ) must appear after the k]. 



The element, d, may be any of the following: 

1. An integer, real, double precision, or complex con- 
stant. When double precision and/or complex constants 
are specified, the corresponding variables must have 
appeared in a preceding double precision statement 
and/or complex statement. 

2. One or more alphameric characters. This field is 
written as: 

nHaia2a3 ... an 
where: 

n is the number of alphameric characters follow- 
ing H. 
a is an alphameric character or blank. 

Each group of six alphameric characters or blanks 
forms a word. If n is not a multiple of six, the char- 
acters are left-justified and the remaining character 
locations in the last core storage word are filled with 
blanks. 

When more than 6 alphameric characters are re- 
quired, the data statement must be preceded by a ^ 
dimension statement indicating the number of core 
storage words needed by the alphameric field. For 
example, if the programmer wishes to define 15 alpha- 
meric characters starting at G(l), he must use a dimen- 
sion statement defining G as at least three words in 
length. 

example: 

DIMENSION G( 3) 

DATA G/15HDATAbTObBEbREAD/ 

3. A series of octal digits. An octal field is written as a 
series of octal digits preceded by the letter O. The field 
following the letter O may include from one to twelve 
signed or unsigned octal digits. 

4. A logical constant. A logical field may be written 
in one of the following forms: 



.TRUE. 

.FALSE. 

T 

F 

The logical constants T and F may be used only in the 
data statement. Furthermore, if a logical constant is 
specified in a data statement, a logical statement must 
precede it. The logical statement must contain the 
variables that will be replaced by logical constants. 

Uses of the data statement are illustrated in the 
following examples: 



DATA R, Q/14.2, 3HEND/, Z/O777777000001 



LOGICAL LA, LB, LC, LD 

DATA LA, LB, LC, LD/F, .TRUE. , .FALSE. , T/ 



DIMENSION E ( 5 ) ,A.( 4 ) ,B ( 3,3,4 ) 

COMPLEX D 

DATA E, A(3), B(2,l,4), D/5*0.0,1.0,2.0,( 3.1,4.5)/ 

There must be a direct relationship between the list 
and the data. Each element of data should correspond 
to one nondimensioned variable or an element of an 
array. When data is to be placed into an entire array, 
the name of the array is placed in the list without 
subscripts. The number of data elements must be equal 
to the size of the array. When data is to be placed into 
a complex variable field, the data should be a complex 
constant. 

The following two statements illustrate the one-for- 

one correspondence between list items and data items. 

DIMENSION B( 25) 

DATA A,B,C/24*4.0,3.0,2.0, 1.0/ 

The data statement places 4.0 into A, B(1),...B(23), 
and 3.0, 2.0, and 1.0 into B(24), B(25), and C, re- 
spectively. 



BLOCK DATA Subprogram 

The block data subprogram causes data to be entered 
into a labeled common block. This subprogram may 
contain only the data, common, dimension, and Type 
statements associated with the data being defined. 



GENERAL FORM 



BLOCK DATA 



4- 



The first statement of this subprogram must be the 
block data statement. The subprogram may not con- 
tain any executable statements. 

One or more labeled common blocks may be speci- 
fied in a common statement, and data can be entered 
into as many labeled common blocks as are specified. 
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The common statement must include all elements of 
the labeled common blocks, although these elements 
need not appear in the data statement. The data state- 
ment, however, must define only the elements listed in 
the common statement. 

Following is an example of a block data subprogram. 
Note that the element A of the common block eln and 
the element Y of the common block rmg are listed in 
the common statement but are not defined in the data 
statement. 

BLOCK DATA 

COMMON/ELN/C,A,B/RMG/Z,Y 

DIMENSION B( 4), Z( 3) 

DOUBLE PRECISION Z 

COMPLEX C 

DATA B( 1 )/l.l/,C/ ( 2.4,3.769 ) /,Z( 1 ) /7.6498085D0/ 

END 



COMMON Statement 



GENERAL FORM 



COMMON a, b, c, . . . 

where: 

a, b, c, . . . are variables that may be dimensioned. 



examples: 

COMMON A, B, C 
COMMON A, B(5, 3),C 

Variables, including array names, appearing in a 
common statement are assigned locations relative to 
the beginning of common. This common area may be 
shared by a program and its subprograms. The loca- 
tions in the common area are assigned in the sequence 
in which the variables appear in the common state- 
ment, beginning with the first common statement of 
the program. 

1. Two variables in common may not be made 
equivalent to each other. 

2. Variables brought into a common block through 
equivalence statements may increase the size of the 
block (the section "The equivalence Statement" has 
additional information). 

3. If the variables appearing in a common statement 
contain dimension information, they must not appear 
in a dimension statement. 

4. Elements placed in common may be placed in 
separate blocks. These separate blocks may share 
space in Core storage at object time. Blocks are given 
names, and those with the same name occupy the 
same space. 

5. The symbolic name of a common block contains 
one to six alphameric characters, the first of which is 
alphabetic. The symbolic name precedes the variable 
names comprising the block. The block name is always 
embedded in slashes (e.g., /BB/). It must not be used 
for any other purpose in the same Processor appli- 
cation. 
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There are two types of common blocks: blank and 
labeled. ( 

a. Blank common is indicated either by omitting 
the block name if it appears at the beginning 
of the common statement, or by preceding the 
blank common variable by two consecutive 
slashes. 

b. Labeled common is indicated by preceding the 
labeled common variables with the block name 
embedded in slashes. 

6. The field of entries pertaining to a block name 
ends with a new block name, the end of the common 
statement, or a blank common designation. 

7. Block name entries are cumulative throughout the 
program. For example, the first two common state- 
ments have the same effect as the third: 

COMMON A,B,C/R/D,E/S/F 

COMMON G,H/R/I/S/P 

COMMON A, B, C, G, H/R/D, E, I/S/F, P 

8. Blank common may be any length. Labeled 
common must conform to the following size require- 
ment: all common blocks of a given name must have 
the same length in all programs that are executed 
together. 

9. Arrays with adjustable dimensions may not be 
specified in a common statement ( see "Adjustable Di- 
mensions" under "dimension Statement"). 



COMMON and DIMENSION 

Array names appearing in common must also appear 
in a dimension statement in the same program, or the 
dimension information must be included in the com- 
mon statement, as in the following example: 
COMMON A, B (10, 15), C 
The common statement may appear anywhere in the 
program, unless it contains dimension information. In 
this case, it must precede the first appearance of the 
dimensioned variables in any executable statement. 



EQUIVALENCE Statement 

This statement permits data storage to be shared 
within a single program in a way analogous to that in 
which the common statement causes the data storage 
area to be shared between programs. 



GENERAL FORM 



EQUIVALENCE (a, b, c, . . .), (d, e, f, . , .) 

where: 

a, b, c, d, e, f , . . . are variables that may be subscripted; 

these subscripts must be integer constants. The number 

of subscripts appended to a variable must be equal to the 

number of dimensions of the variable. 



example: 

DIMENSION B(5), C(10, 10),D(5, 10, 15) 
EQUIVALENCE (A, B(4), C(5, 4) ), (D(l, 4, 3), E) 

Each major pair of parentheses in the equivalence 
statement list encloses the names of two or more vari- 
ables that are to be stored in the same location during 
execution of the object program; any number of equiv- 
alences (i.e., sets of parentheses) may be given. 

In an equivalence statement, B(4) is the third stor- 
age location following the one that contains B(l). In 
general, B ( p ) is defined f or p > to mean the ( p - 1 ) th 
location after the beginning of the B array (i.e., the 
pth location in the array). If p is not specified, it is 
taken to be 1. Thus, in the preceding example, the 
equivalence statement indicates that A, B(4), and 
C(5, 4) occupy the same location. It also specifies that 
D(l, 4, 3) and E are to share the same location. 

Locations can be shared only by variables, not by 
constants. The sharing of storage locations requires the 
knowledge of which Fortran statements will cause a 
new value to be stored in a location. There are four 
such statements: 

1. Execution of an arithmetic or logical statement 
stores a new value in the variable on the left side of 
the equal sign. 

2. Execution of a do statement stores a new indexing 
value. 

3. Execution of a read statement stores new values 
in the variables in the input list. 

4. Execution of a call statement stores new values 
in arguments used to return values. 

Note: The equivalence statement is designed to cause 
only the sharing of data storage. It does not cause the 
sharing of characteristics of two variable names; for 
example: 

1. A Type declaration made for one variable name 
will not be applied to the other. 

2. The fact that a variable controls indexing will not 
be applied to a related variable. Although the second 
variable changes, it may not be reflected in the index- 
ing generation. 



The layout of storage is: 

A 
B 

C D(l) 
D(2) 
D(3) 
In the above example, a statement" such as equiv- 
alence (a,d(3)) which would extend common in the 
reverse direction, is invalid. 

Because the programmer has complete control over 
the sequence of location of the variables in common, 
they may be used as the medium for transmitting argu- 
ments from the calling program to the Fortran func- 
tion or subroutine subprogram being called. In this 
way, they are transmitted implicitly, as if specified in 
the argument list following the subroutine name. 

To obtain implicit arguments, it is necessary only 
to have the corresponding variables in the two pro- 
grams occupy the same location. This can be done by 
having them occupy corresponding positions in com- 
mon statements of the two programs or by having 
them appear in common blocks with the same label. 
A double-word variable in common must start the 
common block or be an even number of words away 
from the beginning of each common block. 

In equivalence statements, the effect of the equiv- 
alence must place double-word variables at the be- 
ginning of the equivalence chain or an even number 
of words away from the beginning of the equivalence 
chain. For example, the following statement is valid: 
EQUIVALENCE ( A, C ( 3 ) ) 
The following statement is invalid: 

EQUIVALENCE ( A, C(2) ) 
In these examples, A is a double-word variable, and 
C is a dimensioned single-word variable. 



EQUIVALENCE and COMMON 

The sequence in which data is listed in common is the 

sequence in which data is stored. However, variables 

brought into a common block through equivalence 

statements may increase the size of the block indicated 

by the common statements, as in the following 

example: 

COMMON/X/A, B, C 
DIMENSION D( 3) 
EQUIVALENCE (C,D) 



Type Declaration Statements 

There are six Type statements: integer, real, double 
precision, complex, logical, external. These state- 
ments determine the type of variable associated with 
each variable name in the statement. This Type declara- 
tion is in effect throughout the program. 



GENERAL FORM 



INTEGER a(ii), b(i2), c(i 3 ), .. . 

REALa(ii),b(i2), c(i3),... 

DOUBLE PRECISION a(h), b(i 2 ), cUa), . . . 

COMPLEX a(ii), b(i 2 ), c(i3), . . . 

LOGICAL a(h), b(i 2 ), c(i 3 ), . . . 

EXTERNAL a,b,c, . . . 

where: 

1. a,b,c, ... are variable names or function names appear- 
ing within the program. 

2. i is an optional subscript composed of 1, 2, or 3 in- 
teger constants that may be used to specify dimensions for 
each variable. Subscripts may only be appended to variable 
names appearing within the program, not to function 
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examples: 

INTEGER BIGF, X, QF, LSL, A( 10, 10) 
REAL IMIN, LOG, GRN, KLW 
DOUBLE PRECISION Q, J, DSIN 
EXTERNAL SIN, MATMPY, INVTRY 
LOGICAL F, G, L(2, 5) 
COMPLEX C( 4, 5, 3),D 

RULES FOR TYPE STATEMENTS . 

1. A variable or function declared to be of a given 
type remains of that type throughout the program. 
The type may not be changed. 

2. A variable may appear in a maximum of two 
Type statements only if one of them is the external 
type. 

3. integer indicates that the variables listed are 
integer (fixed point) and overrides the alphabetic 
naming convention. 

4. real indicates that the variables listed are real 
(single-precision floating-point) variables and over- 
rides the alphabetic naming convention. 

5. logical indicates that the variables are logical 
variables and assume only the value true or false. 

6. external indicates that the names listed after 
external are subprogram names to be used as argu- 
ments in a subroutine or function call; for example: 



MAIN PROGRAM 



SUBPROGRAM 

SUBROUTINE SUBR (F, X, Y) 



MAIN PROGRAM 

EXTERNAL INVTRY 
EXTERNAL AMNT 



SUBPROGRAM 

Y=F(X) 



RETURN 
CALL SUBR (INVTRY,A,B) 



CALL SUBR (AMNT,'C,D) 



In the first call, F becomes invtry, X becomes A, and 
Y becomes B; that is, the call means r = invtry(a). 
The second call means d = amnt(c). 

\ The section "The call Statement" contains a dis- 
cussion of arguments. 

7. double precision indicates that the variables 
listed are double-precision variables. 

8. complex indicates that the variables listed are 
complex variables. 

9. All Type statements pertaining to any given vari- 
able must precede the first appearance of the variable 
within an executable statement of the program. 

10. The external statement may not specify the 
dimension of variables. 

11. Any variable having its dimension specified by 
a Type statement may not have its dimension specified 
elsewhere. 
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Appendixes 



Appendix A. Table of Source Program Characters 



8-3 
8-4 



01 

02 

03 

04 

05 

06 

07 

10 

11 
20 

13 

14 



01 

02 

03 

04 

05 

06 

07 

10 

11 
60 

13 

14 



12 

1 
12 

2 
12 

3 
12 

4 
12 

5 
12 

6 
12 

7 
12 

8 
12 

9 

12 

12 

8-3 

12 

8-4 



61 

62 

63 

64 

65 

66 

67 

70 

71 
60 

73 
74 



21 

22 

23 

24 

25 

26 

27 

30 

31 
20 

33 

34 



11 

1 
11 

2 
11 

3 
11 

4 
11 

5 
11 

6 
11 

7 
11 

8 
11 

9 

11 

11 

8-3 

11 

8-4 



41 

42 

43 

44 

45 

46 

47 

50 

51 
40 

53 

54 



41 

42 

43 

44 

45 

46 

47 

50 

51 
40 

53 

54 




1 


2 

3 

4 

5 

6 

7 

8 

9 


8-3 

8-4 



21 

22 

23 

24 

25 

26 

27 

30 

31 
12 

33 

34 



61 

62 

63 

64 

65 

66 

67 

70 

71 
00 

73 

74 



NOTE: The characters $ and ' canjje used in FORTRAN only as alphameric text in a FORMAT 
statement or as alphameric arguments. 

Appendix B. Source Program Statements and Sequencing 

The following is a complete list of the 7040/7044 Fortran iv source program state- 
ments, their sequence of execution, and their ordering in the source program. 



STATEMENT 

a=b 

ASSIGN n to i 
BACKSPACE i 
BLOCK DATA 
CALL 

COMMON 



COMPLEX 



CONTINUE 

DATA 
DIMENSION 



NORMAL 
SEQUENCING 

Next statement 

Next statement 

Next statement 

Next statement 

First statement of called 

subprogram 

Next statement 



Next statement 



DO 



Next statement 

Next statement 
Next statement 



Normal DO sequencing, 
then the next statement 



EXECUTABLE 

OR 

NONEXECUTABLE 

Executable 

Executable 

Executable 

Nonexecutable 

Executable 

Nonexecutable 



Nonexecutable 



Executable 

Nonexecutable 
Nonexecutable 



Executable 



ORDERING 

IN THE 

SOURCE PROGRAM 

May be placed anywhere. 

May be placed anywhere. 

May be placed anywhere. 

Must be the first statement of the subprogram.** 

May be placed anywhere. 

May be placed anywhere in the program unless 
it contains dimension information, in which 
case it must precede the first appearance of 
the dimensioned variables in any executable 
statement.* 

Must precede the first appearance of the vari- 
able(s) to which it refers in any executable 
statement of the program.* 
May be placed anywhere but it is most often 
used as the last statement in the range of a DO. 
May be placed anywhere. 
Must precede the first appearance of each sub- 
scripted variable in any executable statement 
for which it specifies the size.* 
May be placed anywhere.* 
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EXECUTABLE 




NORMAL 


OR 


STATEMENT 


SEQUENCING 


NONEXECUTABLE 


DOUBLE PRECISION 


Next statement 


Nonexecutable 


END 


Terminates compilation 
of program 


Nonexecutable 


END FILE 


Next statement 


Executable 


EQUIVALENCE 


Next statement 


Nonexecutable 


EXTERNAL 


Next statement 


Nonexecutable 


FORMAT 


Next statement 


Nonexecutable 


FUNCTION 


Next statement 


Nonexecutable 


GO TO n 


Statement n 


Executable 


GOTOi, (ni,n 2 , 


Statement last 


Executable 


. . • , n m ) 


assigned to i 




GOTO (m,n 2 , 


Statement ni 


Executable 


. . . ,n m ), i 






IF (t)s 


Statement s or next 
statement if relation is 
true or false, respectively 


Executable 


INTEGER 


Next statement 


Nonexecutable 


LOGICAL 


Next statement 


Nonexecutable 


PAUSE 


Next statement 


Executable 


READ 


Next statement 


Executable 


REAL 


Next statement 


Nonexecutable 


RETURN 


The first statement, or 
part of a statement, 
following the reference 
to the subprogram 


Executable 


REWIND 


Next statement 


Executable 


STOP 


Terminates the execution 
of the program 


Executable 


SURROUTINE 


Next statement 


Nonexecutable 


WRITE 


Next statement 


Executable 



ORDERING 

IN THE 

SOURCE PROGRAM 

Must precede the first appearance of the vari- 
able(s) to which it refers within an executable 
statement of the program.* 

Must be the physically last statement of the 
program. 

May be placed anywhere. 

May be placed anywhere.* 

Must precede the first appearance of the 

variable(s) to which it refers within an 

executable statement of the program.* 

May be placed anywhere.* 

Must be the first statement of a FUNCTION 
subprogram.** 

May be placed anywhere.* 

May be placed anywhere.* 

May be placed anywhere.* 

May be placed anywhere. 



Must precede the first appearance of the 
variable(s) to which it refers within an 
executable statement of the program.* 
Must precede the first appearance of the 
variable(s) to which it refers within an 
executable statement of the program.* 
Should be placed where a temporary halt is 
desired. 

May be placed anywhere. 
Must precede the first appearance of the 
variable(s) to which it refers within an 
executable statement of the program.* 
Must be the last executed statement of a sub- 
program. 



May be placed anywhere. 

Should be placed where the termination of the 

program is desired. 

Must be the first statement of a SURROUTINE 
subprogram.** 

May be placed anywhere. 



*This statement may not end the range of a do. 
••This statement may not appear anywhere except as the first statement of a subprogram. 



Appendix C. Differences Between FORTRAN II 
and FORTRAN IV 

1. Function Naming 

a. Incompatibilities may arise where the initial 
character of a function name is used to denote 
the type as floating point (real) or fixed point 
(integer) in Fortran ii. In Fortran iv, this 
difficulty is handled by the Type statements 
real and integer, which define a variable or 
function name as floating or fixed point, re- 
spectively (the section "The Type Declaration 
Statements" has additional information). 



c. 



An open, closed, or arithmetic statement func- 
tion name in Fortran n contains 4-7 char- 
acters, ending in F; in Fortran rv, the number 
of characters is 1 through 6 and the final F has 
no meaning. In both cases, the first character of 
the function name must be alphabetic. 
Built-in and" arithmetic statement functions 
are not identified by a terminal F in Fortran 
iv; they are named as described in item b. The 
Fortran ii library function is a Fortran rv 
function subprogram that is internal to the 
Processor. 
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2. COMMON and EQUIVALENCE 

a. In Fortran iv, equivalence does not affect the 
ordering within common, and it does not 
create a gap in common storage; the only 
effect it can have on a common block is to 
make its size greater than that indicated by 
the common statements of the program. 

b. The Fortran iv common statements may con- 
tain dimension information. 

3. In Fortran iv, if an explicit type is given to a 
variable name that is used throughout the program as 
an ordinary variable and also as an argument of an 
arithmetic statement function, the explicit type applies 
in both contexts. 

4. Implicit multiplication, which occurs in Fortran ii 
as a by-product of the arithmetic translator techniques, 
is not permitted in Fortran iv. Thus, the following 
combinations are not permitted in Fortran iv: 

K( ) 
( )V 
( )K 
where: 

V 

is a variable. 
K 

is a constant. 

is any arithmetic expression within parentheses. 

5. The Fortran ii statements in column 1 are 
changed to the Fortran iv statements in column 2. 



FORTRAN IV 
STATEMENT 

CALLOVERFL(J) 



FORTRAN II STATEMENT 

IF ACCUMULATOR 
OVERFLOW ni, m 
IF QUOTIENT OVERFLOW ni, n 2 CALL OVERFL ( J ) 
IF DIVIDE CHECK Wnf** " " 



IF (SENSE SWITCH i) ni, n 2 
SENSE LIGHT i 
IF (SENSE LIGHT i) ni,ro 
READ TAPE i, list 

READ INPUT TAPE i, n, list 

WRITE TAPE i, list 

WRITE OUTPUT TAPE i, n, list 



CALLDVCHK(J) 
CALLSSWTCH(IJ) 
CALLSLITE(I) 
CALLSLITET(IJ) 
READ (i) list ' 

Rinary record 
READ (i,n) list 

bcd record 
WRITE (i) list 

Rinary record 
WRITE (i,n) list 

bcd record 



The frequency, read drum, and write drum state- 
ments of Fortran ii are not part of the Fortran iv 
language. 

6. logical, an additional Type statement that de- 
fines variables to be used in logical computation, has 
been added to Fortran iv. . 

7. double precision and complex, additional Type 
statements that define variables to be used in arith- 
metic computation, have been added to Fortran iv. 

8. The computational results of an object program 
produced from a source program by the 7040/7044 
Fortran rv compiler and the computational results of 



an object program produced from an equivalent source 
program by the 7090/7094 Fortran ii compiler may 
not be identical. Differences that occur are due to the 
following dissimilarities between the 7040/7044 For- 
tran iv compiler and the 7090/7094 Fortran ii com- 
piler: 

a. The logarithm subroutine of Fortran iv em- 
ploys a new algorithm that yields more accurate 
results for most arguments than does the loga- 
rithm subroutine of Fortran ii. 

b. Real constants written into the source program 
are converted by Fortran iv by a somewhat 
different algorithm than that used by Fortran 
ii. The result is that more significance tends to 
be preserved and a more accurate conversion is 
achieved by Fortran iv than by its predecessor. 

c. The mathematical subroutines in Fortran iv 
are assembled by the Macro Assembly Pro- 
gram (D3MAP), and those in Fortran ii are as- 
sembled by fap. The conversion routines in 
ibmap provide more precise conversions for 
constants than do those in fap. As a conse- 
quence, Fortran iv tends to produce more 
precise results than Fortran ii for subroutines 
that use the same algorithm (and its associ- 
ated constants). The sin/cos subroutine is a 
very good example of this effect. 

d. The order in which a sequence of multiplica- 
tions (or of multiplications and divisions) is 
executed by the object program in Fortran rv 
may be different from that in Fortran ii. If 
such a difference in ordering should occur, 
neither method may be considered superior to 
the other from the standpoint of computational 
accuracy. 

e. In Fortran ii, the maximum size of an integer 
is 2 17 : in Fortran rv it is 2 35 . 



Appendix D. Additional Statements Accepted 
by the Compiler 

The following source program statements are not part 
of the Fortran rv language. They are currently being 
processed by the Fortran rv compiler for compatibility 

With FORTRAN II. 

Input/Output Statements 

The input/output statements read n, punch n, and 
print n are processed by the 7040/7044 compiler. The 
form of the statements is given as follows, where n is 
a format statement number or a variable format 



name. 
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INPUT 



GENERAL, FORM 



READ n, list 



example: 

READ 10, (A(I), 1=1, 5) 
This statement causes records to be read from the 
systems input unit. Successive records are read in ac- 
cordance with the format statement until the list has 
been satisfied; i.e., all data items have been read, con- 
verted, and stored in the locations specified by the list. 

OUTPUT 



GENERAL FORM 



PUNCH n, list 
PRINT n, list 



EXAMPLES: 

PUNCH 20, (A(J),J = 1,6) 
PRINT2,(A(J),J = 1,6) 

The punch statement causes records to be trans- 
mitted to the systems punch unit. The print statement 
causes the object program to transmit data to the sys- 
tems output unit. In both of these statements, succes- 
sive records are written in accordance with the format 
statement until the list has been satisfied. 



Appendix E. Machine-Dependent Features 

Built-in Features 

The built-in functions shown in Figure 9 are included 
only to allow the user of Fortran to utilize the special 
logical operations of the 7040/7044 Data Processing 
Systems. They do not form a part of the standard 
Fortran language, since their function cannot be 
exactly duplicated on other machines. 



Function 
Definition 


Function 
Name 


No. of 
Args. 


Type of 


Function 


Arguments 


Logical intersec- 
tion of two or more 
36-bit arguments 


AND 


^2 


Real 


Real or Integer 


Logical union of the 
two or more 36-bit 
arguments 


OR 


^2 


Real 


Real or Integer 


Logical 1 's com- 
plement of the 36-bit 
argument 


COMPL 


1 




Real 


Real or Integer 



Figure 9. Built-in Functions 

Machine Indicator Tests 

The following suhroutine subprograms are available 
in the library so that the Fortran user may test the 



status of machine indicators and traps. They are called 
by a call statement. (The parameter J must be an 
integer variable and I must be an integer expression. ) 

OVERFL(J) 

J is set to: 1 if a floating-point overflow condition exists, 3 if 
a floating-point underflow condition exists, or 2 if neither condi- 
tion exists. 

DVCHK(J) 

J is set to: 1 if the Divide Check indicator is on, or 2 if it is 
off. The indicator is left in the off condition. 

SSWTCH(IJ) 

Sense Switch I (where I is equal to 1, 2, 3, 4, 5, or 6 at 
execution) is tested, and J is set to: 1 if the sense switch is on, 
or 2 if it is off. 

SLITE(I) 

If 1=0, all FORTRAN sense lights are turned off. If 1=1, 2, 3, 
or 4, the corresponding FORTRAN sense light is turned on. Be- 
cause there are no physical sense lights on the 7040, the status 
of the sense lights is kept as a logical variable internal to the 
sense light routines. 

SLITET(IJ) 

Sense Light I is tested and turned off. The variable J is set 
to: 1 if the sense light is on, or 2 if the sense light is off. 



Appendix F: Compilation Output 

Depending on control card options, a complete output 
listing of a Fortran compilation may consist of five 
parts: 

1. Fortran source listing 

2. map Control Dictionary 

3. map assembly listing (3 options in sibftc card: 

FULIST, LIST, NOLIST) 

4. map Cross-Reference Dictionary (2 options in 
$iHFTC card: ref, noref) 

5. Error Message (if there are errors) 

FORTRAN Source Statement Listing 

Figure 10 illustrates a typical list. 

1. The first line of the list contains text from the $job 
card, "fortran source list," the deck name (card col- 
umns 8-13) from the sibftc card, date, and page num- 
ber. 

2. Line two consists of the column headings "isn" 
(Internal Serial Number) and "source statement." 

3. Each source statement that appears on the listing 
is assigned an isn, and that number is shown in the isn 
column next to the card image of the statement (note 
that the number set is octal ) . Numbers are also assigned 
internally; these numbers do not appear on the listing; 
they cause gaps in the number sequence. 

4. The remainder of the listing is the Fortran source 
input. 
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FORTRAN ILLUSTRATION 

ISN SOURCE STATEMENT 



FORTRAN SOURCE LIST 



08/24/64 



PAGE 



$IBFTC ILLUS LI ST.REF .NODECK 

1 DIMENSION Y(10)fX(10»10> 

2 00 1 I=itlO 

3 I X(I,J)=Y(I)+1. 

5 IF (I.EQ. 1) A=A+1. 

10 IF jt.EO.l) A=fA+L 

13 READ (0) A,(UUtJ)tI = l»10),B,YCJ),J=l,10) 

24 GO TO 8 

25 STOP 

26 END 



Figure 10. FORTRAN Source Statement Listing 



ILL00010 
ILL00020 
ILL00030 
ILL00040 
ILL00045 
ILL00050 
I-LL00060 

ILL00080 
ILL00090 



MAP Control Dictionary Listing 

Figure 11 illustrates a typical Control Dictionary list- 
ing. The first column on the left contains the^ number 
of the Control Dictionary entry. The second column 
contains the octal representation of the binary entry. 
The remaining three columns are generated by the 
assembler for documentation: the third column is the 
external identification for the entry, the fourth column 
indicates the type of entry, and the last column gives 
additional miscellaneous information. 

Assembled Text Listing 

A map listing will be produced if either the list or the 
fulist option is on the $ibftc card. The full listing 
(fulist option) is illustrated and described in the 
manual, IBM 7040/7044 Operating System: Macro 
Assembly Program(MAP)Language, Form C28-6336-1, 
Appendix C. The list option, which provides a con- 
densed listing, is shown in Figure 12. For each instruc- 
tion generated by the compiler, the listing contains the 
map statement number, the error flag (if any), the 
relative location assigned to each instruction, the sym- 
bolic operation code, and the symbolic variable field. 

The listing is read across one line at a time; there is 
a maximum of three sequential instructions on each 
line. The map statement number appears only once 
per line, and it shows the number of the first instruc- 
tion on the line. 

There is a correspondence between the executable 
Fortran statements and the generated map instruc- 
tions. The map instructions follow the statement use 
prgct. (map statement number 19) and are assigned 
relative location 00000. 

Each numbered Fortran statement has a correspond- 
ing name with an "S" appended to it on the map listing; 
e.g., isn-3 is statement number 1, and map statement 31 
has the name IS. 

All other executable Fortran statements have re- 
lated names of the form P.nnnn on the map listing, 
where nnnn is the isn; e.g., isn-2 corresponds to map 
statement 21, which has the name P.0002. 



Cross-Reference Dictionary Listing 

The Cross-Reference Dictionary, shown in Figure 13, 
contains three types of references: to defined symbols, 
to location counters, and to multiply-defined symbols. 

The listing of references to defined and multiply- 
defined symbols gives the symbol, its value, and the 
map statement numbers of those instructions that refer 
to it. 

The P.xxxx symbols are generated by the compiler 
for literals, for names on generated coding, and with 
the lorg statement. 

Error Messages 

Figure 14 illustrates the Error Message listing, which 
contains the following information: 

1. The severity code identifies the action taken 
because of the error. Following are the codes: 

Warning message only. 

1 Mild error. The object program will be loaded and 
executed as specified on the $IBJOB card. 

2 Definite error. The object program will be loaded 
if the GO, MAP, or LOGIC options have been speci- 
fied on the control card; then specified MAP or 
LOGIC options will be performed. However, the 
program will not be executed. 

4 Serious error. GO, MAP, and LOGIC options will be 
deleted, and the binary deck will be incomplete. 

7 Extreme error. GO, MAP, and LOGIC options will 
be deleted. Output will be incomplete. 

2. The listing contains the map statement number 
that may be related to the Error Message. It will have 
no significance if there is an isn number ( see 4 below) . 

3. It contains the Error Message number. 

4. When present, .the isn number will relate the 
message to a corresponding statement on the Fortran 
Source List. If the isn information is present, the map 
statement number will have no significance. In re- 
ferring to the Fortran Source List, if the number is 
skipped on the listing, the programmer should refer to 
the next lower isn and its corresponding statement 
(this statement has more than one isn assigned to it). 

5. The Error Message listing contains the message 
text. 
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FORTRAN ILLUSTRATION 

CONTROL DICTIONARY 



BINARY CARD OOOOO 

000 000266000000 
000000000004 

001 314343646260 
000267000000 

002 263143000033 
300000000000 

003 . 224543314633 

300000000000 

004 636222314633 
300000000000 

005 514351314633 
300000000000 

006 623341673163 
300000000000 

007 622563264733 
300000000000 

010 000000000000 
000000000101 



$IBLDR ILLUS 
$CDICT ILLUS 



IBMAP ASSEMBLY ILLUS 
08/24/64 
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PAGE 



PREFACE MODE=REL,PROGRAM-START=00000 
ILLUS DKNAME DECK-START=00000,DECK-END=00266 
FILOO. EXTERN 
BNLIO. EXTERN 
TSBIO. EXTERN 
RLRIO. EXTERN 
S.JXIT EXTERN 
SETFP. EXTERN 

EVEN 



AT 00101 



*TEXT ILLUS 
Figure 11. Control Dictionary Listing 



ILLUOOOl 



FORTRAN ILLUSTRATION 



IBMAP ASSEMBLY ILLUS 



1 
4 
7 

to 

11 
13 
16 
19 
22 
25 
27 
30 
33 
36 
39 
42 
45 
48 
51 
54 
57 
59 
61 
64 
67 
70 
73 
76 
79 
82 
85 
88 
91 
94 
97 







BEGIN 


PLGCT.,* 






OOOOO 




USE 


PRGCT. 


00073 




USE 


STRCT. 






00073 




LORG 




00077 




OCT 


201400000000 






00100 




OCT 


000000000001 


00101 


LTCRZ. OCT 


000000000000,000000000000 








00103 




OCT 


201400000000, 146000000000 








00106 


X 


ess 


100 






00252 B 




BSS 


1 






EXTERN 


FILOO. 






00254 A 




BSS 


1 


E OOOOO 




USE 


PRGCT. 






OOOOO 




TSL 


SETFP. 


00002 




STQ 


I 






00003 




AXT 


-1,2 


00005 




VLM 


=0000001200000 


,0: 


• 15 










00007 




PAC 


,1 






00010 S 


.0032 


BSS 




00011 




FAO 


LITCT.+l 






00012 




STO 


X-11,1 


00014 




TXI 


•♦1,2,-1 






00015 




TXH 


S. 0032, 2,-11 


00017 




SUB 


LITCT.+2 






0Q020 




TNZ 


P. 0006 


00022 




FAD 


LITCT.+l 






00023 




STO 


A 


00024 


P, 


.0010 CLA 


I 






00025 




SUB 


LITCT-+2 


00027 


P, 


.0012 BSS 








0002.7 P. 


.0011 


BSS 




00030 




PZE 


FILOO. 






00031 




TSL 


BNLIO. 


00033 


P, 


.0014 LDQ 


•0000000000001 






00034 




STO 


4 


00036 




SXA 


S. 0033, 4 






00037 S. 


.0034 


BSS 




00040 




STQ 


I 






00041 




LDQ 


J 


00042 




VLM 


•0000001200000, 


0, 


15 










00044 




PAC 


,1 






00045 S. 


.0035 


BSS 




00046 




STO 


X-11,1 






00047 P. 


.0020 


TXI 


•+1,1,-1 


00051 




TXI 


•♦1,4,1 






00052 




SXA 


1,4 


00054 


P. 


.0021 TSL 


BNLIO. 






00055 




STO 


B 


00057 




LXA 


S. 0033,1 






00060 




STO 


Y-1,1 


00061 


S. 


,0033 AXT 


»»,4 






00062 




TXI 


•+1,4,-1 


00064 
00067 




PXA 
TXH 


,4 

S. 0034, 4, -11 






00065 
00070 




SUB 
TSX 


•0000000100000 
RLRIO. ,4 


00072 


P. 


0025 TRA 


S.JXIT 






00073 P. 


0026 


BSS 




OOOOO 




USE 
EXTERN 


PLGCT. 
RLRIO. 










EXTERN 
EXTERN 


BNLIO. 
S.JXIT 






BEGIN 


PRGCT. ,• 






000 73 




USE 


PRGCT. 


00073 




USE 


SFLCT. 










BEGIN 


STRCT.,* 














• 




GENERATED LITERALS 


00074 




OCT 


000001200000 






00075 




OCT 
END 


000000100000 






$CKEN0 ILLUS 
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00073 USE 


SFLCT. 


00076 LITCT. OCT 


000000000000 


EVEN 




00105 J BSS 


1 


00253 I BSS 


1 


00255 Y BSS 


10 


00001 P. 0002 LDQ 


•0000000000001 


00004 LDQ 


J 


00006 ADD 


I 


00010 IS CLA 


Y-1,2 


00013 P. 0004 TXI 


•+1,1,-1 


00016 P. 0005 CLA 


I 


00021 P. 0007 CLA 


A 


00024 P. 0006 BSS 




00026 TNZ 


P. 0011 


00027 P. 0013 TSX 


TS8I0..4 


00032 STO 


A 


00035 AXT 


-1.4 


00037 P. 0016 LDQ 


•0000000000001 


00043 ADD 


I 


00045 P. 0017 TSL 


BNLIO. 


00050 LXA 


1,4 


00053 TXL 


S. 0035, 4, 10 


00056 TSL 


BNLIO. 


00061 P. 0022 BSS 




00063 SXA 


S. 0033, 4 


00066 SLH 


J 


= 00071 P. 0024 TRA 


BS 


» START OF PROLOGUE 


EXTERN 


TSBIO. 


EXTERN 


SETFP. 


BEGIN 


SFLCT.,* 


00073 OCT 


000000000001 



Figure 12. Condensed Listing 



40 



FORTRAN ILLUSTRATION 

CROSS-REFERENCE DICTIONARY 



IBMAP ASSEMBLY ILLUS 
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PAGE 4 



REFERENCES TO DEFINED SYMBOLS 
VALUE NAME STATEMENT NUMBERS 



00010 


IS 








00254 


A 


38,40,50 






00252 


B 


71 






VIRTUAL 


BNLIO. 


49,63,70, 


,72 




VIRTUAL 


FILOO. 


48 






00253 


I 


22,26,35, 


,42,57,60, 


,66,68 


00105 


J 


24,52,58, 


,81 




000 76 


LITCT. 


30,36,39, 


,43 




00101 


LTCR2. 








VIRTUAL 


RLRIO. 


83 






VIRTUAL 


SETFP. 


20 






VIRTUAL 


S.JXIT 


85 






VIRTUAL 


TSBIO. 


47 






00106 


X 


31,64 






00255 


Y 


29,74 






00024 


P. 0006 


37 






00027 


P. 0011 


44 






00010 


S.0032 


34 






00061 


S.0033 


54,73,78 






00037 


S.0034 


82 






00045 


S.0035 


69 






00073 


P. 0036 


100 






00076 


P. 0037 


5 






00073 


P. 0040 


106 






00073 


P. 0041 


21,51,56 






00074 


P. 0042 


25,59 






00075 


P. 0043 


80 







REFERENCES TO LOCATICN COUNTERS 

LC START NAME STARTING AND ENDING STATEMENT NUMBERS 



00000 




1-1 


00000 


PLGCT. 


88-94 


00000 


PRGCT. 


2-2, 19-87,95-96 


00073 


SFLCT. 


3-3,97-107 


00073 


STRCT. 


4-18 , 



REFERENCES TO UNDEFINED SYMBOLS 

NAME STATEMENT NUMBERS 



8S 



Figure 13. Cross-Reference Dictionary Listing 
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ERROR MESSAGES 
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PAGE 



2 STATEMENT 19 
STATEMENT 19 



2 STATEMENT 34 



ERROR 1323 ISN-12 ILLEGAL MIXED MODE ON RIGHT HAND SIDE OF ARITHMETIC STATEMENT. 
ERROR 1327 ISN-25 SHOULD HAVE A STATEMENT NUMBER BECAUSE OF THE PRECEDING GO TO OR 

ARITHMETIC IF STATEMENT. 
ERROR 26 8S IS AN UNOEFINED SYMBOL 



HIGHEST SEVERITY WAS 2. EXECUTION DELETED. 
Figure 14. Error Message Listing 
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Index 



A page number in italics indicates that the designated reference 
is of particular importance. 

A-conversion 17 J8, 19 

input '. . ' 18 

output 18 

alphameric fields 

( see "fields, alphameric" ) 

arrays 8, 16, 28 

arrangement in storage 8 

in FUNCTION subprograms 28 

in SUBROUTINE subprograms 28 

arithmetic IF 

see "IF, arithmetic" ) 

arithmetic statement 6, 11 

arithmetic statement function 23 

ASSIGN .13,35 

assigned GO TO 

( see "GO TO, assigned" ) 

BACKSPACE 16,21,22,35 

BCD mode 

( see "mode, BCD" ) 
binary mode 

( see "mode, binary" ) 
blank COMMON 

(see "COMMON, blank") 
blank fields 

( see "fields, blank" ) 
blank records 

( see "records, blank" ) 

blanks 20 

BLOCK DATA '.'.'.':'.'.'.'.'.'.'.'.'.'. 31, 35 

built-in ( or open ) functions 

(see "functions, built-in (open)") 

CALL 14, 15, 28, 29, 33, 34, 35 

CALL DUMP 29 

CALL EXIT 29 

CALL PDUMP 29 

carriage control 20 

coding form 

( see "FORTRAN, coding form" ) 

comments card 5 

COMMON 8, 16, 28, 30, 31, 32, 33, 35 

blanks 32 

blocks 32 

labeled 32 

COMPLEX 23, 27, 31, 32, 33, 34, 35, 37 

complex constants 

( see "constants, complex" ) 
complex number fields 

( see "fields, complex number" ) 
complex variables 

( see "variables, complex" ) 
computed GO TO 

( see "GO TO, computed" ) 

consta nt 7, 8, 9, 10, 11, 14 

complex 7 

double-precision 7 

integer ; 7 

logical 8 

real 7 

continuation cards 5 

CONTINUE ....; '.'.'.'.'.'.'.'.'.'.'.'.'.'.'.15,35 

control statements 6 13 



D-conversion 17, 18, 19, 20 

DATA 31,32,35 

data input to the object program 20 

declarative statements q 

DIMENSION 8, 16, 28, 30, 31, 32, 33, 35 

D0 ... 14, 15, 16, 33, 35 

exit from 14 

implied jg 

index 14 

nests 14 

range 14 

restrictions in range 15 

satisfied 14 

transfers within range of 14 

DOUBLE PRECISION . 23, 27, 31, 32, 33, 36, 37 

double-precision constants 

( see "constants, double-precision" ) 
double-precision variables . 

( see "variables, double-precision" ) 
DUMP 

(see "CALL DUMP") 
DVCHK(J) 38 

E-conversion 17, 18, 19, 20 

END i5)36 

END FILE 16, 21, 22, 36 

EQUIVALENCE 28, 30, 32, 33, 36 

EXIT 

(see "CALL EXIT") 

explicit 8 

expressions 7, 9, 10, 11, 28 

arithmetic 9 28 

hierarchy of operations 10 

logical 9, 10, 11 

EXTERNAL 33, 34, 36 

F-conversion 17, 18, 19, 20 

fields 17 

alphameric 18 

blank 19 

complex number 18 

H • '..17,19 

logical ( see "logical fields" ) 

numerical 17 20 

X 17^ 20 

FORMAT 16, 1 7, 18, 19, 20, 21, 36, 37 

FORTRAN 

Assembly Program ( FAP ) 37 

binary record 16 

card 5 

coding form 5, q 

Input/Output Library :"? 22 

listing (see "listing, FORTRAN") 

types of statements 6 

FORTRAN II 36 37 

FORTRAN IV 36^ 37 

FORTRAN statements ". 6, 13, 14,' 15 

function 8, 9, 23-28 

arithmetic 9 

built-in (open) 23 

calling 28 

library ( closed ) 23, 24-27 

logical * 27 

naming 35 

type 23 

FUNCTION subprogram 15, 23, 27, 28, 29, 30, 36 
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GO TO 13, 14, 15, 36 

assigned 13, 36 

computed 13, 36 

unconditional 13, 36 

H-conversion . . . . 17, 18, 19 

input 19 

output 19 

H fields 

( see "fields, H" ) 

I-conversion 17, 18, 19, 20 

IF 8,13,14,36 

arithmetic 13 

logical 13, 34 

implicit 8 

input/output 16 

lists 16 

of matrices 16 

input/output statements 6, 16, 21, 37, 38 

input 21, 38 

output 21,38 

INTEGER 23, 27, 33, 34, 36 

integer constants 

( see "constants, integer" ) 

integer variables 

( see "variables, integer" ) 

labeled COMMON 

(see "COMMON, labeled") 

library ( or closed ) functions 

(see "functions, library (closed)") 

listing 38,39 

Assembled Text 39 

Cross-Reference Dictionary 39 

Error Messages 39 

FORTRAN Source Statement 38 

MAP Control Dictionary 39 

lists 

( see "input/output lists" ) 

LOGICAL . 23, 27, 33, 34, 36 

logical constants 

( see "constants, logical" ) 

logical fields 19 

input 19 

output 19 

logical IF 

( see "IF, logical" ) 

logical statement 6, 11 

logical statement functions •. 23 

logical variables 

( see "variables, logical" ) 

machine indicator tests 38 

Macro Assembly Program ( IBMAP ) 37 

mode . 22 

BCD 22 

binary 22 

multiple-record formats 20 

numerical fields 

( see "fields, numerical" ) 

O-conversion 17, 18, 19 

operation symbols 9, 10 

arithmetic 9 

logical 9, 10 

relational 9, 10 

OVERFL (J) 38 



PAUSE 15,36 

PDUMP 

(see "CALL PDUMP") 
physical records 

( see "records, physical" ) 

PRINT ' 37,38 

Processor 23 

PUNCH *. . , [. 38 

READ 16, 21, 33, 36, 37 

REAL 23,27,33,34,36 

real constants 

( see "constants, real" ) 
real variables 

( see "variables, real" ) 

records 20 

blank 20 

FORTRAN 21, 22 

IOCS logical 21, 22 

physical '. 21, 22 

repetition of field format 19 

repetition of groups ~ 19 

RETURN 15, 28, 36 

REWIND 16, 21, 22, 36 

scale factors 19 

input 19 

output 19 

SLITE (I) 38 

SLITET (I, J) 38 

source program 5 

source program characters 33 

source statements 5 

SSWTCH (I, J) 38 

STOP 15, 28, 36 

subprogram statements 6 

subroutines 23 

classes 23 

defining 23 

naming 23 

type 23 

SUBROUTINE subprograms 15, 23, 28, 29, 30, 33, 36 

subscripts 7, 8 

forms of '. 8 

subscripted variables (see "variables, subscripted") 

Type statements 8, 23, 30, 33, 34 

kinds 33 

rules for 34 

unconditional GO TO 

( see "GO TO, unconditional" ) 

variables . 8, 9, 10, 11, 23 

complex . 8, 9, 10, 11 

double-precision , 8, 9, 10, 11 

integer 8, 9, 10, 11 

logical 8, 9, 10, 11 

names 8 

real 8,9,10,11 

subscripted ■ . 8 

type specification 8 

WRITE 16, 21, 36 

X-conversion ... 17, 19 

X fields 

( see "fields, X" ) 
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